1. Khi nào cần xoá dòng trùng?

Một số tình huống thực tế:

2. Code VBA xoá dòng trùng theo cột bất kỳ

✏️ Ví dụ: xoá dòng trùng theo cột A

Giả sử bạn có dữ liệu từ A1 đến D1000, muốn xóa các dòng có giá trị trùng nhau ở cột A:

Sub XoaDongTrung_CotA()

    Dim lastRow As Long

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1") ' Đổi tên sheet nếu cần

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Xoá dòng trùng dựa vào cột A

    ws.Range("A1:D" & lastRow).RemoveDuplicates Columns:=1, Header:=xlYes

    MsgBox "Đã xoá dòng trùng theo cột A!"

End Sub

✅ Bạn có thể thay Columns:=1 thành Columns:=Array(1,2,3) nếu muốn xoá trùng theo nhiều cột. 

3. Lọc nâng cao bằng VBA – giữ lại duy nhất

Bạn muốn tạo một danh sách không trùng, ví dụ lấy danh sách tỉnh thành, mã sản phẩm, mã nhân viên, bạn có thể dùng đoạn sau:

Sub Loc_DanhSach_Unique()

    Dim ws As Worksheet

    Dim sourceRange As Range

    Dim targetRange As Range

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set sourceRange = ws.Range("A2:A1000") ' Dữ liệu cần lọc

    Set targetRange = ws.Range("F2")       ' Nơi dán kết quả

    sourceRange.AdvancedFilter Action:=xlFilterCopy, _

        CopyToRange:=targetRange, Unique:=True

    MsgBox "Đã lọc danh sách không trùng tại cột F"

End Sub

📌 Ứng dụng tốt cho:

• Danh sách tỉnh thành
• Mã sản phẩm duy nhất
• Các email khách hàng khác nhau

4. Kết hợp với nút bấm trên Excel

Bạn có thể chèn Button → gán macro để chạy trực tiếp:

• Vào tab Developer → Insert → Button
• Gán macro XoaDongTrung_CotA hoặc Loc_DanhSach_Unique
• Click → Excel tự làm việc

5. Tổng kết – Ưu điểm của xử lý lặp bằng VBA

Học VBA Excel để làm việc thông minh hơn

Bạn đang làm việc nhiều giờ mỗi tuần với Excel, nhưng:

• Vẫn thao tác lặp lại
• Báo cáo hay bị lỗi do dữ liệu lặp
• Mất thời gian lọc, sửa, chuẩn hóa?

🎓 Đã đến lúc học VBA tại MCI Academy để làm chủ Excel:

• 15+ project thật trong công việc văn phòng
• Hướng dẫn từng dòng, ai cũng làm được
• Có hỗ trợ cá nhân hoá macro cho công ty bạn
• Giảng viên từng làm cho Tập đoàn lớn (VPBank, Vingroup...)

📞 Hotline: 0352.433.233
🌐 Web: mcivietnam.com