Cách gộp nhiều file Excel thành 1 file

Hợp nhất các tệp Excel với nhau bằng VBA

B1: Mở file Excel mới 

B2: nhấn tổ hợp phím Alt + F11 để mở Visual Basic Editor

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

Khi cửa sổ hiện ra dán mã sau vào khunh bên phải của Module

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:="Chon file Excel muon gop", 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 "Da xong " & countFiles & " files" & vbCrLf & "Da Gop " & countSheets & " worksheets", Title:="Gop nhieu file excel"

    End If

  Else

      MsgBox "chua chon file", Title:="Gop nhieu file excel"

  End If

End Sub
 

Chọn vào nút Run để chạy lệnh

B4: Cửa sổ mở ra chọn tất cả file Excel muốn gộp, chờ tí sẽ có thông báo bao nhiêu file gộp thành công và đã gộp được bao nhiêu sheet

Chọn file muốn gộp

Thông báo sau khi thành công