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...