nhatquan88
Thành viên mới
- Tham gia
- 17/12/10
- Bài viết
- 4
- Được thích
- 0
bạn muốn lọc duy nhất hay là loại bỏ những cặp số trùng nhau ?chào các anh em !
Nhật quân xin nhờ các anh em giúp cho mình lọc ra các số xe không trùng nhau thì lấy ra .còn các xe trùng nhau thì bỏ ra.(có file đính kèm theo)
nhật quân xin cảm ơn trước các anh em nhé
chào các anh em
nhật quân
Sub Loc()
Dim enR As Long, tmp(), iR As Long
enR = [a65000].End(xlUp).Row
[COLOR=red]Range("C:C").Clear[/COLOR]
ReDim tmp(1 To enR, 1 To 1)
For iR = 1 To enR
If WorksheetFunction.CountIf(Range("A1:A" & enR), Cells(iR, 1)) = 1 Then
j = j + 1
tmp(j, 1) = Cells(iR, 1)
End If
Next
Range([COLOR=red]"C1"[/COLOR]).Resize(j) = tmp()
End Sub
Đàng nào cũng dùng COUNTIF, vậy sao không dùng Advanced Filter với cell điều kiện là =COUNTIF($A$2:$A$34,$A2)=1 ---> Khỏe hơn không?Cái này chỉ cần dùng 1 cột phụ sau đó dùng công thức là được. Bạn thử dùng VBA xem sao nhé!
Mã:Sub Loc() Dim enR As Long, tmp(), iR As Long enR = [a65000].End(xlUp).Row [COLOR=red]Range("C:C").Clear[/COLOR] ReDim tmp(1 To enR, 1 To 1) For iR = 1 To enR If WorksheetFunction.CountIf(Range("A1:A" & enR), Cells(iR, 1)) = 1 Then j = j + 1 tmp(j, 1) = Cells(iR, 1) End If Next Range([COLOR=red]"C1"[/COLOR]).Resize(j) = tmp() End Sub
Bạn xem file đính kèm theo cách dùng advanced Filter với điều kiện như anh NDU đã chỉ ở trên nhé!Cảm ơn Anh Minh Công
nhưng Nhật Quân làm theo hàm COUNTIF không ra ,nhờ anh Minh Công tạo giúp Nhật Quân trong file Excel đính kèm luôn nhé.
Chào Anh Minh Công
Nhật Linh