Hướng dẫn bằng gì.Dùng VBA nhé bạn.E chào các bác!
Các bác có add-in hoặc có cách nào gộp nhiều file excel, có nhiều sheet có cùng cấu trúc vào 1 file mới. Hướng dẫn giúp em.
Em xin cám ơn!
Bác giúp dùm em nhé. Em cám ơn!Hướng dẫn bằng gì.Dùng VBA nhé bạn.
File đâu mà hướng dẫn.Bác giúp dùm em nhé. Em cám ơn!
Chia sẻ cho bạn và những ai cần. Chương trình không phải của mình. Chỉ nhớ là đã tải từ GPE lâu lắm rồiE chào các bác!
Các bác có add-in hoặc có cách nào gộp nhiều file excel, có nhiều sheet có cùng cấu trúc vào 1 file mới. Hướng dẫn giúp em.
Em xin cám ơn!
Anh ơi, file này không mở được excel có đuôi xlsx, anh có thể sửa lại giúp em với. Em xin cám ơn!Chia sẻ cho bạn và những ai cần. Chương trình không phải của mình. Chỉ nhớ là đã tải từ GPE lâu lắm rồi
Em gửi anh file mẫu. Em xin cám ơn!File đâu mà hướng dẫn.
Bạn muốn kết quả như thế nào phải nói mới biết được chứ.Anh ơi, file này không mở được excel có đuôi xlsx, anh có thể sửa lại giúp em với. Em xin cám ơn!
Bài đã được tự động gộp:
Em gửi anh file mẫu. Em xin cám ơn!
Dạ em muốn gom tất cả các file có nhiều nhiều sheet, tổng hợp lại thành 1 file vào 1 sheet có đầy đủ dữ liệu của các fiel kia.Bạn muốn kết quả như thế nào phải nói mới biết được chứ.
Sao không tổng hợp vào 1 sheets tổng mà lại tổng hợp ra 1 file khác vậy.Dạ em muốn gom tất cả các file có nhiều nhiều sheet, tổng hợp lại thành 1 file vào 1 sheet có đầy đủ dữ liệu của các fiel kia.
Sub tonghop()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim tong, wb As Workbook, lr As Long, lr1 As Long, sh As Worksheet
Set tong = Worksheets.Add
tong.Name = "Tong hop"
Sheet1.Range("A1:BI1").Copy tong.Range("A1")
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Tong hop" Then
lr = sh.Range("A" & Rows.Count).End(xlUp).Row
If lr > 1 Then
lr1 = tong.Range("A" & Rows.Count).End(xlUp).Row
sh.Range("A2:bi" & lr).Copy tong.Range("A" & lr1 + 1)
End If
End If
Next
tong.Copy
tong.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Dạ tại có nhiều file có nhiều anh ơi. Phần mềm bên em xuất ra nhiều file có nhiều sheet có cùng cấu trúc. Nhưng vì lý do quản lý em muốn gom tất cả các file và các sheet vào 1 file và 1 sheet mới ạ. Anh giúp em nhé, em xin cám ơn!Sao không tổng hợp vào 1 sheets tổng mà lại tổng hợp ra 1 file khác vậy.
Vậy mai nhé.Dạ tại có nhiều file có nhiều anh ơi. Phần mềm bên em xuất ra nhiều file có nhiều sheet có cùng cấu trúc. Nhưng vì lý do quản lý em muốn gom tất cả các file và các sheet vào 1 file và 1 sheet mới ạ. Anh giúp em nhé, em xin cám ơn!
Dạ em cám ơn bác rất nhiều!Vậy mai nhé.
Bạn xem code nhé.Dạ em cám ơn bác rất nhiều!
Sub tonghop()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim tong, wb As Workbook, lr As Long, lr1 As Long, sh As Worksheet, arr, k
Set tong = ThisWorkbook.Worksheets("Tong hop")
lr1 = tong.Range("A" & Rows.Count).End(xlUp).Row
If lr > 1 Then tong.Range("A2:Bi" & lr1).ClearContents
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Show
For Each k In .SelectedItems
Set wb = Workbooks.Open(k)
For Each sh In wb.Worksheets
lr = sh.Range("A" & Rows.Count).End(xlUp).Row
If lr > 1 Then
lr1 = tong.Range("A" & Rows.Count).End(xlUp).Row + 1
sh.Range("A2:Bi" & lr).Copy tong.Range("A" & lr1)
End If
Next
wb.Close False
Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2