Xin code loai trùng dữ liệu

quochy2015

Thành viên mới
Tham gia ngày
1 Tháng tư 2015
Bài viết
3
Được thích
0
Điểm
363
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!
 

File đính kèm

Ba Tê

Gội Rồi Mới Cạo
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,487
Được thích
16,395
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
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.
PHP:
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

Thành viên mới
Tham gia ngày
1 Tháng tư 2015
Bài viết
3
Được thích
0
Điểm
363
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

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
11,397
Được thích
17,305
Điểm
1,860
Bạn có thể xài phương thức AdvancedFilter
:D Nếu dữ liệu nhiều, bạn có thể ghi lại bằng cách mở bộ thu macro lên! :D
 

CHAOQUAY

Thành viên tích cực
Tham gia ngày
24 Tháng tám 2018
Bài viết
1,084
Được thích
1,132
Điểm
360
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 )
Mã:
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
 
Top Bottom