Xin code loai trùng dữ liệu (4 người xem)

[quochy2015]

Em chào các anh chị cùng các thầy. Mong nhận được sự quan tâm và giúp đỡ của các anh chị và các thầy.
File dữ liệu của em có rất nhiều thông tin cần xử lí và loại trùng nên file khá nặng vì vậy em cần chuyển hàm loại trùng trong excel (em đang dùng index, match, countif) thành code VBA để mong file được xử lí nhanh hơn.

Vì vậy em có gửi đính kèm 1 file mẫu nhờ các anh chị và các thầy cho em xin cái code ạ.
Em chân thành cảm ơn mọi người ạ.

Tks!

 

[Ba Tê]

Em chào các anh chị cùng các thầy. Mong nhận được sự quan tâm và giúp đỡ của các anh chị và các thầy.
File dữ liệu của em có rất nhiều thông tin cần xử lí và loại trùng nên file khá nặng vì vậy em cần chuyển hàm loại trùng trong excel (em đang dùng index, match, countif) thành code VBA để mong file được xử lí nhanh hơn.

Vì vậy em có gửi đính kèm 1 file mẫu nhờ các anh chị và các thầy cho em xin cái code ạ.
Em chân thành cảm ơn mọi người ạ.

Tks!

Bạn đưa dư liệu không thật thì tôi gởi cho bạn 1 ví dụ loại dữ liệu trùng theo dữ liệu cột A của bạn.
Bạn tùy ý áp dụng vào dữ liệu thật của bạn.

Public Sub s_Gpe()
Dim R As Long
    R = Range("A10000").End(xlUp).Row - 1
    Range("B2").Resize(R).Value = Range("A2").Resize(R).Value
    Range("B2").Resize(R).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

 

[quochy2015]

Dạ em cảm ơn anh ạ, tại file nặng quá nên em không gửi đc ạ, ý em muốn hỏi là vậy đó ạ, nhưng anh ơi, anh mới chỉ cho em đoạn code loại ở cột a thôi, còn em muốn loại thêm cột c ở ô d1 nữa làm sao anh, nhờ anh chỉ dùm em với ạ.

 

[SA_DQ]

Bạn có thể xài phương thức AdvancedFilter
Nếu dữ liệu nhiều, bạn có thể ghi lại bằng cách mở bộ thu macro lên!

 

[CHAOQUAY]

Em chào các anh chị cùng các thầy. Mong nhận được sự quan tâm và giúp đỡ của các anh chị và các thầy.
File dữ liệu của em có rất nhiều thông tin cần xử lí và loại trùng nên file khá nặng vì vậy em cần chuyển hàm loại trùng trong excel (em đang dùng index, match, countif) thành code VBA để mong file được xử lí nhanh hơn.

Vì vậy em có gửi đính kèm 1 file mẫu nhờ các anh chị và các thầy cho em xin cái code ạ.
Em chân thành cảm ơn mọi người ạ.

Tks!

Chạy thử code này
( Các vùng dữ liệu bố trí trên các cột tương tự như file mẫu )

Option Explicit

Sub abcd()
Dim sArr As Variant
Dim rws As Long, cls As Long
Dim i, j, k
With Sheet1
    rws = .UsedRange.Rows.Count
    cls = .UsedRange.Columns.Count
End With
With CreateObject("Scripting.Dictionary")
    For j = 1 To cls Step 3
        sArr = Sheet1.Range("A2").Offset(, j - 1).Resize(rws - 1, 1)
        .RemoveAll
        For i = 1 To rws - 1
            If sArr(i, 1) <> "" Then .Item(sArr(i, 1)) = ""
        Next i
        Sheet1.Range("A2").Offset(, j).Resize(.Count, 1) = WorksheetFunction.Transpose(.keys)
    Next j
End With
End Sub