Gộp File Excel - Phần Mềm FREE

Bạn đã bao giờ gặp khó khăn khi hợp nhất nhiều tệp Excel thành một tệp Excel duy nhất, đặc biệt là khi bạn muốn kết hợp tệp Excel với nhiều trang tính?

Mục Lục

• Sử dụng VBA để kết hợp nhiều tệp excel thành một tệp excel:
• Sao chép nhiều trang tính Excel của nhiều tệp Excel vào một tệp Excel duy nhất 2
• Kết hợp nhiều tệp excel thành một tệp excel bằng cách di chuyển hoặc sao chép.

Sử dụng VBA để kết hợp nhiều tệp excel thành một tệp excel:

Để trở thành một lập trình viên chuyên nghiệp Bạn có thể sử dụng mã VBA để kết hợp nhiều tệp excel thành một tệp excel lớn theo các bước sau:

1. Đặt tất cả file excel vào cùng một thư mục như hình sau:
2. Chạy tệp Excel mà bạn muốn kết hợp các bảng tính khác với nó.
3. Vào Developer > Visual Basic, cửa sổ Microsoft Visual Basic for applications mở ra. Nhấp vào Insert > Module, sao chép đoạn mã dưới đây vào Module:

Sub GetSheets() Path = "C:\Users\dt\Desktop\dt kte\" Filename = Dir(Path & "*.xls") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub

Sao chép nhiều trang tính Excel của nhiều tệp Excel vào một tệp Excel duy nhất 2

Bạn sao chép và chạy đoạn mã sau trong mô-đun VBA Excel tiêu chuẩn.

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

Kết hợp nhiều tệp excel thành một tệp excel bằng cách di chuyển hoặc sao chép.

Nếu bạn không quen thuộc với Excel, bạn không có lựa chọn nào khác ngoài việc sao chép dữ liệu từ mỗi trang tính và dán nó vào một sổ làm việc mới. di chuyển hoặc sao chép Nó sẽ giúp bạn xuất hoặc sao chép nhiều trang tính trong một sổ làm việc nhanh hơn.

1. Mở tất cả bảng tính bạn muốn hợp nhất thành một bảng tính mới.
2. Chọn tất cả tên trang tính trong bảng tính ở thanh tên. Bạn có thể chọn nhiều trang bằng cách nhấn giữ Ctrl hoặc Shift. Nhấp phải vào tên trang tính, chọn Move or Copy…

3. Trong hộp thoại Move or Copy, chọn bảng tính lớn bạn muốn hợp nhất vào từ danh sách tùy chọn Move selected sheets to book. Sau đó xác nhận vị trí của các trang tính được hợp nhất như hình dưới đây :

4. Nhấn OK. Các trang tính được chọn đã được di chuyển tới bảng tính lớn.
5. Lặp lại bước 2-4 để di chuyển những bảng tính khác đến bảng tính lớn. Nó sẽ kết hợp nhiều trang tính của các bảng tính được mở thành một bảng tính lớn.

Qua bài viết này, chúng tôi thấy rằng sử dụng VBA trong Excel rất hiệu quả phải không? Không chỉ vậy, VBA còn có thể làm được rất nhiều điều thú vị, chẳng hạn như: giúp bạn tăng tốc xử lý trong excel, giúp bạn tạo báo cáo tự động, kiểm soát từ ngữ, Outlook PowerPoint và các chương trình khác … Tệp excel của bạn là phần mềm chuyên nghiệp …

Để học VBA một cách toàn diện và có hệ thống Hãy tham gia khóa học VBA Basics 101-PhanMemFree. Hệ thống hiện có nhiều phần thưởng khi bạn đăng ký khóa học này. Thông tin chi tiết vui lòng xem: