Cần giúp code macro xóa dữ liệu trùng

[chinghia125]

Xin chào các anh chị GPE .
Em cần giúp code xóa dữ liệu trùng , nếu trùng tên cột A thì xóa dữ liệu ở cột B .

 

[snow25]

Xin chào các anh chị GPE .
Em cần giúp code xóa dữ liệu trùng , nếu trùng tên cột A thì xóa dữ liệu ở cột B .

Bạn thử sub này.

Sub xoa()
    Dim arr, kq, i As Long, dic As Object, dk As String
   Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
         arr = .Range("A1:B10").Value
         ReDim kq(1 To UBound(arr), 1 To 1)
         For i = 1 To UBound(arr)
             dk = arr(i, 1)
             If Not dic.exists(dk) Then
                dic.Add dk, ""
                kq(i, 1) = arr(i, 2)
             End If
        Next i
        .Range("D1:D10").Value = kq
   End With
End Sub

 

[chinghia125]

Bạn thử sub này.

Sub xoa()
    Dim arr, kq, i As Long, dic As Object, dk As String
   Set dic = CreateObject("scripting.dictionary")
    With Sheets("sheet1")
         arr = .Range("A1:B10").Value
         ReDim kq(1 To UBound(arr), 1 To 1)
         For i = 1 To UBound(arr)
             dk = arr(i, 1)
             If Not dic.exists(dk) Then
                dic.Add dk, ""
                kq(i, 1) = arr(i, 2)
             End If
        Next i
        .Range("D1:D10").Value = kq
   End With
End Sub

Code chạy tốt , xin cảm ơn anh .