Lọc những dữ liệu theo list cho trước (1 người xem)

[huhumalu]

Nhờ anh em trong diễn đàn xử lý giúp:
Mình có 1 sheet dữ liệu (Sheet1) và và muốn lọc bỏ những dữ liệu kg nằm trong danh sách nằm ở cột A (Sheet2); Mình có viết một đoạn để lọc, nhưng chuối quá vì khi có khối lượng lớn nó chạy rất chậm và đơ máy và mình cũng không nắm rõ nó có hiệu quả không.
Nhờ anh em xem qua file tính và góp ý hoàn thiện giúp.
Cảm ơn nhiều !

 

[doveandrose]

Nhờ anh em trong diễn đàn xử lý giúp:
Mình có 1 sheet dữ liệu (Sheet1) và và muốn lọc bỏ những dữ liệu kg nằm trong danh sách nằm ở cột A (Sheet2); Mình có viết một đoạn để lọc, nhưng chuối quá vì khi có khối lượng lớn nó chạy rất chậm và đơ máy và mình cũng không nắm rõ nó có hiệu quả không.
Nhờ anh em xem qua file tính và góp ý hoàn thiện giúp.
Cảm ơn nhiều !

bấm nút cái treo máy luôn . hic

 

[ndu96081631]

Nhờ anh em trong diễn đàn xử lý giúp:
Mình có 1 sheet dữ liệu (Sheet1) và và muốn lọc bỏ những dữ liệu kg nằm trong danh sách nằm ở cột A (Sheet2); Mình có viết một đoạn để lọc, nhưng chuối quá vì khi có khối lượng lớn nó chạy rất chậm và đơ máy và mình cũng không nắm rõ nó có hiệu quả không.
Nhờ anh em xem qua file tính và góp ý hoàn thiện giúp.
Cảm ơn nhiều !

Theo như mô tả thì bạn chỉ giữ lại những phần tử vừa có trong cột A sheet1, vừa có trong cột A sheet2, đúng không?
Nhưng theo dữ liệu thật của bạn mà tôi vừa mở xem thì chẳng có cái nào trùng giữa 2 sheet cả ---> Dẫn đến sẽ xóa sạch toàn bộ

 

[huhumalu]

Theo như mô tả thì bạn chỉ giữ lại những phần tử vừa có trong cột A sheet1, vừa có trong cột A sheet2, đúng không?
Nhưng theo dữ liệu thật của bạn mà tôi vừa mở xem thì chẳng có cái nào trùng giữa 2 sheet cả ---> Dẫn đến sẽ xóa sạch toàn bộ

Dạ, do file nặng nên em xóa mà kg để ý, em có ý dùng array mà bây giờ chỉnh một chập nó thành lặp vô tận, chạy không chính xác nữa a.

Sub Main()
Dim i, iR As Long, j As Long
Sheets("Sheet2").Select
Dim dontDelete
dontDelete = WorksheetFunction.Transpose(Range("A1:A20"))
Sheets("Sheet1").Select
Dim Data
iR = Range("A2").End(xlDown).Rows
Data = WorksheetFunction.Transpose(Range("A2:A" & iR))
For i = LBound(Data) To UBound(Data)
    For j = LBound(dontDelete) To UBound(dontDelete)
        If Data(i) <> dontDelete(j) Then
            Range("A2").Offset(i - 1, 0).EntireRow.Delete
        End If
    Next j
Next i
End Sub

 

[huhumalu]

Em gửi thêm file dữ liệu. Anh xem giúp.

 

[huuthang_bd]

Em gửi thêm file dữ liệu. Anh xem giúp.

Advance Filter 1 phát là ra. Tội gì code cho khổ.

 

[huhumalu]

Advance Filter 1 phát là ra. Tội gì code cho khổ.
View attachment 147316

Cảm ơn anh nhưng cái này em cũng chưa rõ lắm. Em làm mà hình như nó coppy có 1 ô à; Nhờ anh hướng dẫn kĩ hơn chút xíu.

 

[huhumalu]

Anh em nào giúp dùm mình với. Mấy bữa nay là đủ kiểu mà cẫn chưa làm ra được. Thanks !

Sub Main()
Dim i, iR As Long, j As Long
Sheets("Sheet2").Select
Dim dontDelete
dontDelete = WorksheetFunction.Transpose(Range("A1:A20"))
Sheets("Sheet1").Select
Dim Data
iR = Range("A2").End(xlDown).Rows
Data = WorksheetFunction.Transpose(Range("A2:A" & iR))
For i = LBound(Data) To UBound(Data)
    For j = LBound(dontDelete) To UBound(dontDelete)
        If Data(i) <> dontDelete(j) Then
            Range("A2").Offset(i - 1, 0).EntireRow.Delete
        End If
    Next j
Next i
End Sub

[/QUOTE]