Bạn đang làm việc với một lượng lớn dữ liệu Excel và muốn tổng hợp chúng vào một file duy nhất để dễ dàng phân tích? Bài viết này sẽ hướng dẫn bạn cách gộp nhiều file Excel thành một một cách đơn giản và hiệu quả, giúp bạn tiết kiệm thời gian và công sức.

Sao chép các trang tính để gộp file Excel 

Nếu bạn chỉ có một vài tệp Excel để hợp nhất, bạn có thể sao chép hoặc di chuyển các trang tính từ tệp này sang tệp khác theo cách thủ công. Đây là cách thực hiện:

- Mở các bảng tính bạn muốn kết hợp.

- Chọn các trang tính trong sổ làm việc nguồn mà bạn muốn sao chép vào sổ làm việc chính.

- Để chọn nhiều trang tính, bạn có thể làm như sau:

Để chọn các trang tính liền kề, hãy nhấp vào tab trang tính đầu tiên mà bạn muốn sao chép, nhấn và giữ phím Shift, sau đó nhấp vào tab trang tính cuối cùng. Thao tác này sẽ chọn tất cả các trang tính ở giữa.

- Để chọn các trang tính không liền kề, hãy giữ phím Ctrl và nhấp vào từng tab trang tính riêng lẻ.

- Khi đã chọn tất cả các trang tính, hãy nhấp chuột phải vào bất kỳ tab nào đã chọn, sau đó nhấp vào Move or Copy.

- Trong hộp thoại Move or Copy, hãy thực hiện như sau:

Từ Move selected sheets to book, chọn sổ làm việc đích mà bạn muốn hợp nhất các tệp khác.

- Chỉ định chính xác nơi các tab trang tính được sao chép sẽ được chèn vào. Trong trường hợp của chúng tôi, chúng tôi chọn move to end

- Chọn Create a copy box nếu bạn muốn các bảng tính gốc vẫn nằm trong tệp nguồn.

- Nhấp vào OK để hoàn tất quá trình hợp nhất.

Để hợp nhất các tab từ các tệp Excel khác, hãy lặp lại các bước trên cho từng sổ làm việc riêng lẻ.

Cách hợp nhất các tệp Excel với VBA

Nếu bạn có nhiều tệp Excel cần được hợp nhất thành một tệp, cách nhanh hơn là tự động hóa quy trình bằng macro VBA.

Dưới đây bạn sẽ tìm thấy mã VBA sao chép tất cả các trang tính từ tất cả các tệp Excel mà bạn chọn vào một bảng tính. MergeExcelFiles được viết bởi Alex.

Lưu ý quan trọng! Macro hoạt động với cảnh báo sau - các tệp được hợp nhất không được mở vật lý hoặc trong bộ nhớ. Trong trường hợp như vậy, bạn sẽ gặp lỗi thời gian chạy.

Sub MergeExcelFiles()

  Dim fnameList, fnameCurFile As Variant

  Dim countFiles, countSheets As Integer

  Dim wksCurSheet As Worksheet

  Dim wbkCurBook, wbkSrcBook As Workbook

  fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)

  If (vbBoolean <> VarType(fnameList)) Then

    If (UBound(fnameList) > 0) Then

      countFiles = 0

      countSheets = 0

      Application.ScreenUpdating = False

      Application.Calculation = xlCalculationManual

      Set wbkCurBook = ActiveWorkbook

      For Each fnameCurFile In fnameList

          countFiles = countFiles + 1

          Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)

          For Each wksCurSheet In wbkSrcBook.Sheets

              countSheets = countSheets + 1

              wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)

          Next

          wbkSrcBook.Close SaveChanges:=False

      Next

      Application.ScreenUpdating = True

      Application.Calculation = xlCalculationAutomatic

      MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"

    End If

  Else

      MsgBox "No files selected", Title:="Merge Excel files"

  End If

End Sub

Làm thế nào để thêm macro này vào sổ làm việc

Nếu bạn muốn chèn macro vào sổ làm việc của mình, hãy thực hiện như sau:

- Nhấn Alt + F11 để mở Visual Basic Editor.

- Nhấp chuột phải ThisWorkbook trên ngăn bên trái và chọn Insert > Module.

- Trong cửa sổ xuất hiện (Cửa sổ mã), dán mã ở trên.

Ngoài ra, bạn có thể tải xuống macro trong tệp Excel, mở nó cùng với sổ làm việc mục tiêu của bạn (bật macro nếu được nhắc), sau đó chuyển sang sổ làm việc của riêng bạn và nhấn Alt + F8 để chạy macro. Nếu bạn mới sử dụng macro trong Excel, hãy theo dõi hướng dẫn sau.

Cách sử dụng macro MergeExcelFiles

Mở tệp Excel mà bạn muốn hợp nhất các trang tính từ các sổ làm việc khác và thực hiện như sau:

- Nhấn Alt + F8 ể mở hộp thoại Macro.

- Dưới Macro name, chọn MergeExcelFiles và nhấp vào Run.

- Cửa sổ trình duyệt sẽ mở ra, bạn chọn một hoặc nhiều sổ làm việc bạn muốn kết hợp và nhấp vào Open. Để chọn nhiều tệp, hãy giữ phím Ctrl trong khi nhấp vào tên tệp.

- Tùy thuộc vào số lượng tệp bạn đã chọn, hãy cho macro vài giây hoặc vài phút để xử lý chúng. Sau khi macro hoàn tất, nó sẽ thông báo cho bạn biết có bao nhiêu tệp đã được xử lý và có bao nhiêu trang tính đã được hợp nhất.

Trên đây đã hướng dẫn bạn cách để gộp nhiều file Excel thành 1 file duy nhất. Chúc bạn thực hiện thành công.