Joy gặp sự cố khi hợp nhất khá nhiều sổ làm việc với nhau. Phần lớn các sổ làm việc — khoảng 200 trong số đó, tất cả đều nằm trong một thư mục — mỗi sổ chứa một trang tính, nhưng một số chứa nhiều hơn. Các trang tính tạo nên mỗi sổ làm việc này cần được thêm vào một sổ làm việc.

Cách dễ nhất để thực hiện hợp nhất ở mức độ này — đặc biệt nếu bạn phải thực hiện thường xuyên — là với macro. Macro sau sẽ hiển thị một hộp thoại yêu cầu bạn chọn các tệp để hợp nhất. (Bạn có thể chọn nhiều sổ làm việc bằng cách giữ phím Ctrl khi bạn nhấp vào từng sổ.) Nó lặp qua danh sách bạn chọn, mở từng trang và di chuyển tất cả các trang tính của nó đến cuối sổ làm việc bằng mã.

Sub CombineWorkbooks()

Dim FilesToOpen     Dim x As Integer

On Error GoTo ErrHandler     Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (.xls?), .xls?", _       MultiSelect:=True, Title:="Files to Merge")



If TypeName(FilesToOpen) = "Boolean" Then         MsgBox "No Files were selected"

GoTo ExitHandler     End If

x = 1     While x <= UBound(FilesToOpen)

Workbooks.Open FileName:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets _           (ThisWorkbook.Sheets.Count)

x = x + 1     Wend

ExitHandler:

Application.ScreenUpdating = True     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

Trong quá trình thêm trang tính vào cuối sổ làm việc, Excel sẽ tự động thêm dấu (2), (3), v.v. khi phát hiện tên trang tính trùng lặp. Bất kỳ công thức nào trong sách đề cập đến các trang tính khác cũng sẽ được cập nhật để phản ánh các tên mới.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (12652) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: