Xóa dữ liệu trùng bằng VBA

[bomberman211]

Chào cả nhà, mình có một file như đính kèm. Dữ liệu mới được thêm vào liên tục hàng ngày, tuy nhiên sẽ có nhiều trường hợp hóa đơn được thêm mới bị trùng số với hóa đơn từ ngày trước đó (Mình dùng conditional formatting để bôi đỏ những hóa đơn này). Giờ mình muốn dùng VBA để xóa các dòng hóa đơn trùng cũ, giữ lại các dòng mới. Tuy nhiên, các ghi chú (remark) thì được cập nhật từ hóa đơn cũ vào hóa đơn mới.
Yêu cầu là trong quá trình chạy VBA không tạo thêm dòng mới, và code gọn nhẹ vì dữ liệu của mình khá lớn (>10000 dòng), mình dùng 2 vòng lặp for...next... thì ra kết quả nhưng tốc độ chạy rất chậm. Mong mọi người giúp đỡ.

 

[befaint]

mình dùng 2 vòng lặp for...next.

Sao mình không gửi cái này lên..

remark

Hóa đơn mới có không? Nếu có thì có giữ lại không?

 

[Quang_Hải]

Nhớ là yêu cầu là code phải gọn nhẹ nha vì dữ liệu khá lớn > 100000 dòng

 

[excel_lv1.5]

Chào cả nhà, mình có một file như đính kèm. Dữ liệu mới được thêm vào liên tục hàng ngày, tuy nhiên sẽ có nhiều trường hợp hóa đơn được thêm mới bị trùng số với hóa đơn từ ngày trước đó (Mình dùng conditional formatting để bôi đỏ những hóa đơn này). Giờ mình muốn dùng VBA để xóa các dòng hóa đơn trùng cũ, giữ lại các dòng mới. Tuy nhiên, các ghi chú (remark) thì được cập nhật từ hóa đơn cũ vào hóa đơn mới.
Yêu cầu là trong quá trình chạy VBA không tạo thêm dòng mới, và code gọn nhẹ vì dữ liệu của mình khá lớn (>10000 dòng), mình dùng 2 vòng lặp for...next... thì ra kết quả nhưng tốc độ chạy rất chậm. Mong mọi người giúp đỡ.

Mấy bài tổng hợp dữ liệu mà dùng VBA như cực hình, ngay cả ADO, DAO cũng vậy, thử dùng power pivot xem dữ liệu nhiều bao nhiêu cũng chẳng sợ, thay đổi dữ liệu bấm refresh là được

 

[bomberman211]

Sao mình không gửi cái này lên..


Hóa đơn mới có không? Nếu có thì có giữ lại không?

Có cả những hóa đơn không trùng nha bạn, những hóa đơn đó mình giữ nguyên. Code của mình tương tự như bên dưới.

Sub test()
Dim i, j, r As Integer
r = Cells(4, 1).End(xlDown).row
For i = 4 To r
    For j = i + 1 To r
        If Cells(i, 1) = Cells(j, 1) Then
            Cells(j, 3) = Cells(i, 3)
            Cells(i, 1).EntireRow.Delete
            i = i - 1
            j = j - 1
            r = r - 1
        End If
    Next j
Next i
End Sub

 

[befaint]

nha bạn

nha nha 1 2 3 5

 

[bomberman211]

nha nha 1 2 3 5

Cám ơn @befaint , data xuất ra thì đúng ý mình rồi, nhưng bạn chỉnh giúp mình để VBA sửa trực tiếp trên data gốc được không? Mục tiêu cuối cùng của mình vẫn là xóa các dòng trùng sau khi lấy được "remark" và "amount"

 

[befaint]

data gốc

Làm được nhưng không bao giờ nên làm như vậy bạn.
Lý do: Nguyên tắc dữ liệu đầu vào như nào thì phải luôn luôn lưu trữ lại để còn biết lịch sử của nó, biết cái gì thay đổi, thêm mới.

Bạn chỉ cần ghi vào Sheet mới là được rồi.

 

[bomberman211]

Làm được nhưng không bao giờ nên làm như vậy bạn.
Lý do: Nguyên tắc dữ liệu đầu vào như nào thì phải luôn luôn lưu trữ lại để còn biết lịch sử của nó, biết cái gì thay đổi, thêm mới.

Bạn chỉ cần ghi vào Sheet mới là được rồi.

À, tại những hóa đơn trùng kia bản chất là hóa đơn cũ đã được cập nhật số liệu trên hệ thống, nên tại thời điểm được cập nhật thì các hóa đơn cũ với số liệu cũ đã không còn trên system nữa rồi. Những cái remark kia là mình ghi bằng tay cho từng hóa đơn để tiện follow, nên muốn lấy lại, còn hóa đơn cũ thì xóa đi tại không còn giá trị sử dụng á.

 

[befaint]

không còn giá trị sử dụng

Bạn xóa dòng này
ws.Range(scll_target).Resize(max_row, num_cols).ClearContents

Dòng này:
If ii > 0 Then ws.Range(scll_target).Resize(ii, num_cols).Value = result
đổi thành:
ws.Range(scol_ref & start_row).Resize(last_row, num_cols).Value = result

 

[bomberman211]

Bạn xóa dòng này
ws.Range(scll_target).Resize(max_row, num_cols).ClearContents

Dòng này:
If ii > 0 Then ws.Range(scll_target).Resize(ii, num_cols).Value = result
đổi thành:
ws.Range(scol_ref & start_row).Resize(last_row, num_cols).Value = result

Đa tạ đa tạ. Code của bạn hay quá, dễ tùy biến nữa.

 

[VetMini]

Nhớ là yêu cầu là code phải gọn nhẹ nha vì dữ liệu khá lớn > 100000 dòng

10000 hoá đơn, và thay đổi liên tục hằng ngày.
Cái này mà làm việc với Excel và VBA thì đáng phục thật.

 

[syquyen1987]

[QUOTE="befaint, post: 991781, member: 429354"] [COLOR=rgb(255, 255, 255)]nha nha 1 2 3 5[/COLOR] [/QUOTE] Anh cho em xin hỏi, bài này cũng giải đc object dictionary như cấu trúc code của anh phải không ạ, em thấy anh khai báo object collection ha... gì đó thấy lạ lạ quá ạ

Bạn xóa dòng này
ws.Range(scll_target).Resize(max_row, num_cols).ClearContents

Dòng này:
If ii > 0 Then ws.Range(scll_target).Resize(ii, num_cols).Value = result
đổi thành:
ws.Range(scol_ref & start_row).Resize(last_row, num_cols).Value = result

Anh cho em xin hỏi, bài này cũng giải đc object dictionary như cấu trúc code của anh phải không ạ, em thấy anh khai báo object collection ha... gì đó thấy lạ lạ quá ạ

 

[befaint]

Anh cho em xin hỏi, bài này cũng giải đc object dictionary như cấu trúc code của anh phải không ạ, em thấy anh khai báo object collection ha... gì đó thấy lạ lạ quá ạ

Được nhé. Dùng cái gì mà tận dụng được chức năng kiểm tra sự tồn tại key trong object đó là được.

lạ lạ

Từ bài 11 tới bài 18 (trừ bài 12) đều áp dụng được hết. Ở đây 99% là dùng, biết dùng, thích dùng Dictionary, còn mình thì không thích. Đại khái thế.