Mình có thử Remove Duplicates trong Range A2A11 bằng đoạn code ActiveSheetRange("A2A11")RemoveDuplicates

mình không viết được đoạn code này. ActiveSheet.Range("A2:A11").RemoveDuplicates thêm Columns và Header

Nhờ admin hỗ trợ viết lại đoạn code đầy đủ giúp.

Câu hỏi thứ 2 là làm sao để biết có các thuộc tính Columns, header mà thêm vào cho đầy đủ?

Đoạn code removeDuplicates này có được nhờ việc record macro thôi bạn. Thao tác là:

- bấm record macro

- chọn danh sách cần lọc bỏ giá trị trùng lặp

- vào thẻ Data > chọn remove duplicates > thực hiện thiết lập rồi bấm ok

tùy theo vùng danh sách này có dòng tiêu đề hay không thì chọn My data has header

- bấm stop recording

Như vậy đã có code đầy đủ rồi. Việc còn lại là sửa code để dùng thôi.

code mẫu:

Sub Xoa_DuLieu_TrungLap_MotCot()
     'Khai báo các biến sử dụng
     Dim DongDau As Long, DongCuoi As Long
     Dim TenCot As String
          DongDau = 1
          DongCuoi = Sheets("Data").Range("C" & Rows.Count).End(xlUp).Row
          TenCot = "C"
     'Lệnh xóa dữ liệu trùng lặp, nếu không bao gồm dòng tiêu đề thì Header:=xlNo
     Sheets("Data").Range(TenCot & DongDau & ":" & TenCot & DongCuoi).RemoveDuplicates _
          Columns:=1 , _
          Header:=xlYes
End Sub

với vùng A2:A11 thì các biến sẽ sửa là:

DongDau = 2

TenCot = "A"

DongCuoi = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

Option Explicit

Sub Ghimacro()

    'Không cho có Header

    ActiveSheet.Range("$D$1:$D$7").RemoveDuplicates Columns:=1, Header:=xlNo

   ' có Header

    ActiveSheet.Range("$E$1:$E$7").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

mình cảm ơn Tuấn Ba và Ad

chúc bạn học tốt cùng gitiho