Cách nối file Excel, ghép nhiều file Excel, gộp nhiều Sheet thành 1 file

Là thủ quỹ, kế toán hay nhân viên văn phòng thì việc tổng hợp, thống kê báo cáo của các bộ phận để đưa ra mức quyết toán phù hợp trong từng tháng, từng quý là công việc thường xuyên. Công việc này cần rất nhiều thời gian để tổng hợp thành một file tóm tắt cụ thể đúng không?

Đúng vậy, nếu bạn làm thủ công thì quá trình nhập liệu sẽ mất nhiều thời gian, và đôi khi sơ ý có thể gây ra lỗi dữ liệu, ảnh hưởng nghiêm trọng đến các thành viên trong cùng công ty, cơ quan bạn đang làm việc. công việc. Đó là lý do tại sao trong bài viết hôm nay, mình sẽ chia sẻ với các bạn cách gộp và gộp nhiều tệp Excel thành một tệp duy nhất. Qua đó, bạn có thể ứng dụng các chức năng thống kê kết quả công việc, quyết toán thu chi của cơ quan mình trong bất kỳ khoảng thời gian nào.

Do có nhiều phiên bản Excel khác nhau, và giao diện của phiên bản mới hơi khác so với phiên bản cũ nên mình sẽ chia bài viết thành 2 trường hợp. Trường hợp đầu tiên là bạn sử dụng phiên bản Excel 2007 trở lên.

Đọc thêm:

I. Hợp nhất nhiều tệp Excel thành một tệp duy nhất (2007, 2013….)

Có rất nhiều mã để chúng ta có thể thực hiện việc này một cách dễ dàng, trong bài viết này mình sẽ hướng dẫn các bạn 3 cách thực hiện một cách đơn giản nhất.

Ví dụ tôi có hai danh sách File Excel như hình bên dưới, bây giờ tôi cần gộp chúng lại thành một file Excel duy nhất để việc tính toán thống kê được nhanh chóng và chính xác hơn.

Danh sách 1: Địa chỉ Đông Sơn, Hàm Rồng:

Danh sách 2: Địa chỉ Đội 9, Thiệu Dương:

Phương pháp 1: Sử dụng Mã VBA để hợp nhất nhiều tệp Excel

+ Bước 1: Bạn bật ứng dụng Excel lên và nhấn tổ hợp phím Alt + F11 để mở cửa sổ VBA.

Đối với Excel 2007: Bạn bấm vào biểu tượng biểu tượng Nút Excel ở góc trên cùng bên trái của tệp Excel => chọn Tùy chọn Excel => Một cửa sổ hiện ra, bạn chọn tab Phổ biến => đánh dấu Hiển thị tab Nhà phát triển trong ruy-băng => chọn VÂNG.

Tiếp theo sử dụng phím tắt Alt + F11 hoặc bấm vào Nhà phát triển để mở cửa sổ giao diện Visual Basic.

+ Bước 2: Trong VBA bạn nhấp vào Insert => chọn Module để mở cửa sổ Mã và Sao chép Mã của bạn bên dưới và dán nó.

Mã để hợp nhất tệp Excel:

Sub GopFileExcel ()
Dim FilesToOpen
Dim x As Integer
Lỗi GoTo ErrHandler
Application.ScreenUpdating = Sai
FilesToOpen = Application.GetOpenFilename _
(FileFilter: = ”Tệp Microsoft Excel (* .xlsx), * .xlsx”, MultiSelect: = True, Title: = ”Tệp để hợp nhất”)
Nếu TypeName (FilesToOpen) = “Boolean” thì
MsgBox “Không có tệp nào được chọn”
GoTo ExitHandler
EndIf
x = 1
Trong khi x Workbooks.Open Filename: = FilesToOpen (x)
Sheets (). Move After: = ThisWorkbook.Sheets (ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Thoát Sub
ErrHandler:
MsgBox Err.Description
Tiếp tục ExitHandler
Kết thúc Sub

+ Bước 3: Trong phần này, đặt tên cho Mã tệp là GopFileExcel cùng một bức tranh.

+ Bước 4: Sau khi chuyển sang Excel bạn chọn View và nhấp vào Macros => View Macros để kích hoạt tính năng hợp nhất tệp tự động cho Excel.

+ Bước 5: Trong cửa sổ Macro, nhấp vào GopFileExcel sau đó nhấn lệnh Run để chọn Tệp.

+ Bước 6: Tìm các file Excel cần gộp => chọn tất cả và nhấn Open để hợp nhất các tệp Excel thành Tệp Tổng hợp.

Và bìa là kết quả của việc hợp nhất nhiều tệp Excel thành một tệp duy nhất. Bây giờ bạn có thể sử dụng các hàm để tính toán các bước tiếp theo cho công việc của mình.

Phương pháp 2: Sử dụng một đoạn mã VBA khác

+ Bước 1: Sao chép tất cả các tệp Excel bạn cần nối vào một thư mục. Bạn nên đặt tên thư mục không có dấu và ký tự đặc biệt.

+ Bước 2: Chạy một tệp Excel mà bạn muốn gộp các tệp khác vào. Ví dụ, tôi sẽ chạy File Excel 1.

+ Bước 3: Bạn mở cửa sổ window Microsoft Visual Basic cho các ứng dụng lên bằng cách nhấn tổ hợp phím ALT + F11 (bạn theo dõi bước 2 như đã mô tả ở trên).

Sau đó sử dụng mã sau:

Sub GetSheets ()
Đường dẫn = “C: Users karra Desktop Bai Tap”
Filename = Dir (Đường dẫn & “* .xls”)
Làm trong khi tên tệp “”
Workbooks.Open Filename: = Path & Filename, ReadOnly: = True
Đối với mỗi trang tính trong ActiveWorkbook.
Sheet.Copy After: = ThisWorkbook.Sheets (1)
Trang tiếp theo
Sổ làm việc (Tên tệp). Đóng
Tên tệp = Dir ()
Vòng
Kết thúc Sub

Ghi chú: Trong đoạn mã trên, bạn cần chú ý đến phần được in đậm, đó là đường dẫn đến thư mục chứa các tập tin mà bạn cần trộn.

+ Bước 4: Làm tương tự từ Bước 3 mà tôi đã hướng dẫn trong Cách 1.

Phương pháp 3: Hợp nhất và nối các tệp Excel theo cách thủ công (Di chuyển hoặc sao chép)

Ngoài cách sử dụng mã VBA, có một cách khác để thực hiện thủ công, đó là sử dụng tính năng Di chuyển hoặc Sao chép. Tuy hơi dài nhưng nếu bạn không dùng được code thì đây cũng là một cách hay cho bạn.

+ Bước 1: Bạn mở tất cả các tập tin Excel cần gộp thành một tập tin.

+ Bước 2: Với cách này, bạn có thể copy từ Sheet này sang Sheet khác. Tuy nhiên, trong bài viết này, mình sẽ hướng dẫn các bạn sao chép tất cả các Sheets từ file Excel này để ghép vào một file Excel khác.

Bạn chọn có chọn nhiều Trang tính cùng lúc hay không bằng cách nhấn giữ. Chìa khóa Ctrl hoặc chìa khóa Shift. Sau đó click chuột phải vào sheet bất kỳ => chọn Move or Copy...

+ Bước 3: Trong cửa sổ Di chuyển hoặc Sao chép, chọn trang tính chính từ phần Move selected sheets to book (nghĩa là tất cả các tệp Excel khác sẽ được sao chép vào sổ làm việc chính này).

Sau đó xác nhận vị trí của các trang tính đã hợp nhất như hình dưới đây:

+ Bước 4: Sau đó nhấn OK. Tại thời điểm này, các trang tính đã chọn sẽ được chuyển sang trang tính chính.

+ Bước 5: Bạn lặp lại các bước từ 2 đến 4 để tiếp tục di chuyển các tấm còn lại.

Sử dụng mã để hợp nhất nhiều Trang tính thành 1 Tệp

+ Bước 1 và Bước 2 tương tự như hướng dẫn trong Cách 1 ở trên.

+ Bước 3: Sau đó các bạn giữ nguyên Mã đó và thực hiện tương tự thêm Mã để gộp nhiều Trang tính thành một tệp. Bạn chọn Insert => chọn Module và sao chép toàn bộ Mã bên dưới vào ô trống.

Bảng mã hợp nhất thành một tệp tổng số:

Sub MergeSheets ()
Const NHR = 1
Làm mờ MWS dưới dạng trang tính
Làm mờ AWS dưới dạng trang tính
Dim FAR As Long
Dim LR As Long
Đặt AWS = ActiveSheet
Đối với mỗi MWS trong ActiveWindow.SelectedSheets
Nếu không MWS là AWS thì
FAR = AWS.UsedRange.Cells (AWS.UsedRange.Cells.Count) .Row + 1
LR = MWS.UsedRange.Cells (MWS.UsedRange.Cells.Count) .Row
MWS.Range (MWS.Rows (NHR + 1), MWS.Rows (LR)). Sao chép AWS.Rows (FAR)
EndIf
MWS tiếp theo
Kết thúc Sub

+ Bước 4: Bạn chọn đặt tên cho File là MergeSheets như hình sau đó bấm vào phần File Excel Tổng hợp người bạn đầu tiên của bạn. Lưu ý rằng bạn không tắt mã VBA.

+ Bước 5: Bây giờ bạn có thể tạo một File Excel với nhiều Sheets, bao gồm cả nội dung trong các File mà bạn chọn. Để gộp các Trang tính này thành một Trang tính trong Tệp, bạn chọn Tệp tóm tắt trước rồi giữ Ctrl rồi bấm vào các Trang tính cần gộp.

+ Bước 6: Bạn chọn Tab Insert , và sau đó nhấp vào Macros => chọn View Macros để bắt đầu chế độ tự động trên Excel.

+ Bước 7: Trong cửa sổ Macro bạn chọn MergeSheets => sau đó bấm Run để gộp các Sheets thành Sheet Tổng hợp.

+ Bước 8: Kiểm tra kết quả

II. Hợp nhất các tệp Excel (Áp dụng cho Excel 2003)

Đối với Excel 2003 và Excel, giao diện có một chút khác biệt. Bạn có thể làm như sau để truy cập Macro để sử dụng Code. Mã, chúng tôi vẫn sử dụng mã trên.

Trình diễn: Bạn vào menu Tools => chọn Macro => Sử dụng đoạn mã trên để nối Tệp hoặc hợp nhất Trang tính.

Bạn có thể làm theo hướng dẫn này. (Trong phần cách Hợp nhất ô trong Excel mà không làm mất dữ liệu)

Phần kết

Được rồi, vậy là mình vừa hướng dẫn các bạn Làm cách nào để nối và hợp nhất nhiều tệp Excel thành một tệp duy nhất?. Hoặc Hợp nhất nhiều Trang tính trong Excel thành một Trang tính duy nhất được thôi. Tôi nghĩ thủ thuật này sẽ vô cùng tiện lợi trong quá trình thống kê các chương và danh sách báo cáo của bạn.

Đến đây, phần hướng dẫn gộp nhiều tệp Excel thành một tệp của tôi cũng đã hoàn thành. Hi vọng thủ thuật này sẽ hữu ích trong công việc của mọi người.

Chúc may mắn !