Cách nối file Excel, ghép nhiều file Excel, gộp nhiều Sheet thành 1 file
Nguồn bài viết: 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, việc tổng hợp, thống kê báo cáo của các ban là công việc thường xuyên để đưa ra mức quyết toán phù hợp trong từng tháng, từng quý.
Và hiển nhiên, công việc này tốn rất nhiều thời gian của bạn để có thể tổng hợp lại thành một hồ sơ 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.
Chính vì vậy mà trong bài viết hôm nay mình sẽ chia sẻ cho các bạn cách tổng hợp, Hợp nhất 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 cũng 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.
I. Hợp nhất nhiều tệp Excel thành một tệp duy nhất (2007… 2019….)
Có rất nhiều đoạn mã để chúng ta 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 dưới đây, bây giờ tôi cần kết hợp chúng thành một tệp Excel duy nhất để thực hiện các phép tính thống kê nhanh hơn và chính xác hơn.
Danh sách 1: Vị trí Đô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 mở ứng dụng Excel của mình rồi 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 ĐƯỢC RỒI.
Tiếp theo sử dụng phím tắt
Alt + F11hoặc nhấn vào tab 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ã 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 <= UBound (FilesToOpen)
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, bạn đặ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 tệp Excel để hợp nhất => 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 hợp nhất các tệp khác vào. Ví dụ, tôi sẽ chạy File Excel 1.
+ Bước 3: Bạn mở một cửa sổ 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”)
Do While Filename <> “”
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 Excel cần được hợp nhất thành một tệp.
+ Bước 2: Với cách này, bạn có thể sao chép từ Trang tính này sang Trang tính 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 và 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, hãy 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 bước 2 đến bước 4 để tiếp tục di chuyển các trang tính còn lại.
Phương pháp # 4. 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 giống như hướng dẫn trong Cách #1 bên trên.
+ Bước 3: Sau đó bạn giữ nguyên Mã đó và thao tác 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 phải 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 Tệp là MergeSheets như hình rồi 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: Tại thời điểm này, bạn có thể tạo một Tệp Excel với nhiều Trang tính, bao gồm cả nội dung trong các tệp 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 (hợp nhất) lại với nhau.
+ Bước 6: Bạn chọn Tab Insert và 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 Ghép các ô trong Excel mà không làm mất dữ liệu)
III. 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?. 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ẽ cực kỳ 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 !
Đọc thêm:
Ghi chú: Bài viết này có hữu ích cho bạn không? Đừng quên đánh giá bài viết, thích và chia sẻ nó với bạn bè và gia đình của bạn!
Những bài viết liên quan : Thủ Thuật Excel
Nguồn : congthucexcel.com
Mọi sự sao chép, trích dẫn vui lòng ghi rõ nguồn: congthucexcel.com
from congthucexcel.com https://ift.tt/boMRnq7
via Congthucexcel.com
Nhận xét
Đăng nhận xét