Gộp file Excel

Deal Score0
Deal Score0

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?

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:

Kết hợp các tệp Excel

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…

Kết hợp các tệp Excel

  1. 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 :

Kết hợp các tệp Excel

  1. Nhấn OK. Các trang tính được chọn đã được di chuyển tới bảng tính lớn.
  2. 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.

Kết hợp các tệp Excel

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:

We will be happy to hear your thoughts

Leave a reply

Phần mềm FREE