úp file giả lập lên mình coi nếu được mình làm chomình có 2 cột excel, 2 cột đó gần như giống nhau. mình muốn lọc những dòng không giống nhau ra hoặc xóa những dòng trùng kia bằng cách nào vây
ví dụ:
2 2
3 3
4 4
4 5
5 6
6 6
Cảm ơn mn![]()
nếu Bạn biết sử dụng code thì tham khảo code sau nha xem thế nào nhaBạn xem trong file kèm theo nhé.
Sub DelDuLieu_Trung()
Dim nguon(), i As Long, KQ(), k As Long
nguon = Range([C3], [C65536].End(3)).Resize(, 2).Value
ReDim KQ(1 To UBound(nguon, 1), 1 To UBound(nguon, 2))
With CreateObject("scripting.dictionary")
For i = 1 To UBound(nguon)
If Not .exists(nguon(i, 1)) Then
.Add nguon(i, 1), ""
Else
k = k + 1
KQ(k) = nguon(i, 1)
End If
Next
For i = 1 To k
If .exists(KQ(i)) Then
.Remove (KQ(i))
End If
Next
[E3].Resize(.Count) = Application.Transpose(.Keys)
End With
End Sub
cam on moi nguoi nha. minh dung if(a=b;"";"") de sang cot khac dc roi.![]()