là khi dưa dữ liệu từ UF vào sheet mà giá trị đưa trùng với giá trị đã

Chào bạn giá trị bạn đưa vào là hai vùng đúng không?

Đùng r thầy, kiểu như thêm dữ liệu vào dòng cuối đó thầy, như người thư 2 tên trùng người thứ nhất đó thầy, 

Chào bạn vậy bạn cần duyệt vòng lặp để tim và so sánh với giá trị bạn thêm với giá trị đã có sẵn nếu trùng bạn báo lỗi. dạng như sau:

Option Explicit
Sub kiemtradulieu()
    Dim dc As Long, i As Long, k As Integer
    dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    k = 0
    For i = 1 To dc
        If (Sheet1.Range("A" & i).Value = Sheet1.Range("D1").Value) Then
         k = k + 1
        End If
    Next i
    If (k > 0) Then
        MsgBox "Trung"
    Else
        MsgBox "khong trung"
    End If
End Sub

Của e nó báo trùng sao mà vẫn thêm vào dữ liệu luôn vậy thầy

bạn debug xem nếu có đóng luôn vòng lặp exit for rồi exit sub

là nhu vậy ha thầy, nó vẫn thêm vào cột A thầy

bạn đẩy file lên giúp gitiho nhé.

https://drive.google.com/file/d/1SkaC...