Mình đã thử làm theo như bạn Tuấn Ba chỉ nhưng tại sao nó vẫn cho phép

Bạn xem code nhé:
Option Explicit

Sub testloctrung()
Dim dc As Long, kieu As Integer
dc = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
kieu = Application.WorksheetFunction.CountIfs(Sheet1.Range("A1:A" & dc), Range("C1").Value, _
Sheet1.Range("B1:B" & dc), Range("D1").Value)
If (kieu >= 1) Then
MsgBox "Trung"
End If
End Sub

Mình đã thử nhưng vẫn có thể nhập được file trùng, ngoài ra còn xuất hiện thêm lỗi "runtime error 9 subscript out of range". Bạn vui lòng kiểm tra giùm mình với.

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

chào bạn bạn xem code nhé.
Option Explicit

Sub Gop_DuLieu_TongQuat()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Show
.Title = "Hay chon file de mo"

'Xac dinh file nao duoc chon
Dim i As Long
For i = 1 To .SelectedItems.Count
'Gan bien cho cac workbook
Dim wb_KQ As Workbook
Dim wb_Select As Workbook
Set wb_KQ = ThisWorkbook
Set wb_Select = Workbooks.Open(.SelectedItems(i))
Dim kieu As Integer



'Dua du lieu tu cac workbook khac

'Xac dinh dong cuoi cua Wb2
Dim dongcuoi_wb As Long
dongcuoi_wb = wb_Select.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

'Xac dinh khoang cach so dong du lieu
'Khoang cach = dongcuoi_wb2 - dongdau_wb2 + 1 (neu 2 dong trung nhau thi van có ket qua la 1 dong)
Dim dongdau_wb As Long
dongdau_wb = 8
Dim khoangcach_wb As Long
khoangcach_wb = dongcuoi_wb - dongdau_wb + 1
'Noi nhan
'Tim dong cuoi cua noi nhan => la diem bat dau
'Pham vi cua vung nhan = Khoang cach
Dim dongcuoi_wbKQ As Long
dongcuoi_wbKQ = wb_KQ.Sheets(2).Range("A" & Rows.Count).End(xlUp).Row
kieu = WorksheetFunction.CountIfs(wb_KQ.Sheets(2).Range("A6:A" & dongcuoi_wb), wb_Select.Sheets(1).Range("E2"), wb_KQ.Sheets(2).Range("C6:C" & dongcuoi_wb), wb_Select.Sheets(1).Range("G2"))
If (kieu < 1) Then
wb_KQ.Sheets(2).Range("A" & dongcuoi_wbKQ + 1 & ":BM" & dongcuoi_wbKQ + khoangcach_wb).Value = _
wb_Select.Sheets(1).Range("A" & dongdau_wb & ":BM" & dongcuoi_wb).Value
End If

wb_KQ.Sheets(2).Range("D1").Value = WorksheetFunction.CountIfs(wb_KQ.Sheets(2).Range("A6:A" & dongcuoi_wb), 1)

'Call testtrung
'Call testloctrung

wb_Select.Close SaveChanges:=False

Next i
End With
End Sub
link:
https://mfedu-my.sharepoint.com/perso...

Cám ơn bạn Tuấn Ba, đúng là chạy được rồi nhưng có điều mình ko hiểu sao tháng 1,2 nó kiểm tra được, nhưng tháng 3,4 thì lại vẫn có thể nhập trùng được nhỉ? kiểm tra thì thấy những file bảng lương tháng này có cấu trúc giống nhau mà nhỉ?

Chào bạn bạn thử xem lại xem vì code mình viết chỗ kieu đó là check trùng của tháng rồi nếu trùng thì nó không import vào nữa mà.