1. Cho tất cả các file muốn tổng hợp vào 1 thư mục
Sub TongHop()
Application.ScreenUpdating = False
Dim ObjFSO As Object, ObjFile As Object, DuongDan As String, Cursh As Worksheet
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
DuongDan = ThisWorkbook.Path
Set Cursh = ActiveSheet
Cursh.[A2:I10000].ClearContents
With ObjFSO.Getfolder(DuongDan)
For Each ObjFile In .Files
If ObjFSO.GetExtensionName(ObjFile.Name) Like "xls*" Then
If Not ObjFile.Name Like "~*" Then
If ObjFile.Name <> ThisWorkbook.Name Then
With Workbooks.Open(ObjFSO.GetAbsolutePathName(ObjFile))
With .ActiveSheet
.Range(.[A2], .[A65536].End(3)).Resize(, 9).Copy
Cursh.[A65536].End(3).Offset(1).PasteSpecial 1
Application.CutCopyMode = False
End With
.Close False
End With
End If
End If
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Bác tự thêm nút vào rồi gán macro cho cái nút đó mà chạy.
Bác tìm hiẻu trên diễn đàn về macro nhé có rất nhiều đọc vài bài là biết ngay, sau này cần code gì cứ tìm là có hết, không có mới hỏi cho nhanh.
Code trong bài số 4, bạn tìm dòng lệnh Resize(,9) và thay số cột vào. Nếu dữ liệu từ A> N thì thay số 9 thành số 14, và cứ thế...
thế còn hàng thì làm sao thay đổi đc
Tiễn phật thì thôi ráng tiễn đến tây phương luôn
cảm ơn bạn rất rất nhiều
