LIENTHUYTHANH
Thành viên mới
- Tham gia
- 11/4/07
- Bài viết
- 4
- Được thích
- 18
Bạn có thể rút ngắn code trong file của bạn như sauB1. Tạo cột phụ
B2. Advanced Filter
B3. Xóa duplicate
mình đã gói trong 1 Macro "Tiến hành" bạn nhấn 1 cái là ra cái mong muốn, muốn lọc lại nhớ xóa cột L M N
và nhớ Enable Macro nếu có Warning nhé
Sub LocDuyNhat()
Application.ScreenUpdating = False
[K2:M10000].Clear
Range("B2:C" & Range("B10000").End(3).Row).AdvancedFilter 2, , [L1:M1], 1
Range("K2:K" & [L10000].End(3).Row).Value = Evaluate("row(r:r)")
Application.ScreenUpdating = True
End Sub