Kiểm tra trùng dữ liệu trong 1 cột (dùng Code)

[cpo_vn]

Sửa của Hoàng Danh lại giùm Bạn nè:
Bôi đen dữ liệu xong chạy code này:

Sub DemDulieutrung()
Dim cell As Range, Str As String
Dim n As Long
Str = ""
For Each cell In Selection
    n = WorksheetFunction.CountIf(Selection, cell)
    If n > 1 And InStr(1, Str, cell) = 0 Then Str = Str & cell & " trung: " & n & " lan " & Chr(10)
Next
MsgBox Str
 End Sub

Bác hướng dẫn lại giúp em từ đầu đến cuối thao tác với (từ cách chọn vùng, sheet...đến khi kết thúc chạy lệnh, kiểm tra...)
E, chưa biết gì về Macro ca (

 

[Trần Văn Bình]

Khi dùng CF đã biết có cell trùng dữ liệu khi di chuyển chuột vào cell đó thì ra thông báo đã bị trùng dữ liệu với cell(row,col) ?