Bỏ qua nội dung chính

Làm cách nào để hợp nhất hoặc hợp nhất các trang tính hoặc sổ làm việc thành một trang tính?

Trong công việc hàng ngày, chúng tôi có thể gặp phải sự cố hợp nhất hàng trăm trang tính hoặc sổ làm việc thành một trang tính để phân tích dữ liệu, điều này sẽ mất rất nhiều thời gian nếu bạn sử dụng lệnh Sao chép và Dán trong Excel. Ở đây trong hướng dẫn này, tôi sẽ cung cấp một số mẹo để nhanh chóng giải quyết công việc này.

doc kết hợp 1

DI CHUYỂN NHANH

Hợp nhất tất cả các trang của sổ làm việc đang hoạt động thành một trang với VBA
Hợp nhất hàng chục trang tính hoặc sổ làm việc thành một trang tính / sổ làm việc bằng các cú nhấp chuột
Hợp nhất hai bảng thành một và cập nhật theo cột bằng các nhấp chuột
Tải xuống tệp mẫu


Hợp nhất tất cả các trang của sổ làm việc đang hoạt động thành một trang với VBA

Trong phần này, tôi cung cấp mã VBA sẽ tạo một trang tính mới để thu thập tất cả các trang tính của sổ làm việc đang hoạt động trong khi bạn chạy nó.

1. Kích hoạt sổ làm việc bạn muốn kết hợp tất cả các trang của nó, sau đó nhấn + chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ bật lên, nhấp vào Chèn > Mô-đun để tạo một tập lệnh Mô-đun mới.

3. Sao chép mã bên dưới và dán chúng vào tập lệnh.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc kết hợp 2

4. nhấn F5 sau đó, tất cả dữ liệu trên các trang tính đã được hợp nhất vào một trang tính mới có tên là Kết hợp được đặt ở phía trước tất cả các trang tính.


không di chuyển

Bạn Có Muốn Tăng Lương và Có Nhiều Thời Gian Để Đồng Hành Với Gia Đình Không?

Tab Office Nâng cao hiệu quả của bạn lên 50% trong Microsoft Office Đang hoạt động ngay bây giờ

Thật không thể tin được, làm việc với hai hoặc nhiều tài liệu dễ dàng và nhanh hơn so với làm việc cùng một lúc.

So với các trình duyệt nổi tiếng, công cụ theo thẻ trong Office Tab mạnh hơn và hiệu quả hơn.

Giảm hàng trăm lần click chuột và gõ bàn phím mỗi ngày cho bạn, nói lời tạm biệt với bàn tay chuột ngay bây giờ.

Nếu bạn thường làm việc với nhiều tài liệu, Office Tab sẽ là một công cụ tiết kiệm thời gian tuyệt vời cho bạn.

30-ngày dùng thử miễn phí, Không cần thẻ tín dụng.

Tìm hiểu thêmTải về miễn phí ngay bây giờ


Hợp nhất hàng chục trang tính hoặc sổ làm việc thành một trang tính / sổ làm việc bằng các cú nhấp chuột

Với VBA, bạn chỉ có thể kết hợp các trang tính trong sổ làm việc đang hoạt động, nhưng làm thế nào bạn có thể hợp nhất các trang tính giữa các sổ làm việc thành một trang tính hoặc sổ làm việc?

Hợp nhất các trang tính trên các sổ làm việc thành một trang tính
doc kết hợp 18

Hợp nhất các trang tính giữa các sổ làm việc thành một sổ làm việc
doc kết hợp 3

Để giải quyết công việc này và đáp ứng các yêu cầu khác về kết hợp trang tính, Kết hợp chức năng đã được phát triển với bốn kịch bản kết hợp:

  • Kết hợp nhiều trang tính hoặc sổ làm việc thành một trang tính
  • Kết hợp nhiều trang tính hoặc sổ làm việc vào một sổ làm việc
  • Kết hợp các trang tính cùng tên thành một trang tính
  • Hợp nhất các giá trị trên các trang tính hoặc sổ làm việc thành một trang tính

Ở đây lấy tùy chọn thứ hai làm ví dụ:

Kết hợp nhiều trang tính hoặc sổ làm việc vào một sổ làm việc

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Kích hoạt Excel, nhấp vào Kutools Plus > Kết hợp, một hộp thoại bật ra để nhắc bạn rằng các sổ làm việc bạn muốn kết hợp cần được đóng lại. Nhấp chuột OK để tiếp tục.
doc kết hợp 4
doc kết hợp 5

2. bên trong Kết hợp các Bảng tính bước 1 hộp thoại, kiểm tra Kết hợp nhiều trang tính từ sổ làm việc vào một sổ làm việc tùy chọn. Nhấn vào đây Sau để chuyển sang bước tiếp theo của trình hướng dẫn.
doc kết hợp 6

3. nhấp chuột Thêm > Tập tin or Thư mục để thêm các sổ làm việc bạn muốn kết hợp vào Danh sách sổ làm việc , sau đó bạn có thể chỉ định trang tính nào sẽ được kết hợp với nhau bằng cách kiểm tra tên trong Danh sách bảng tính ngăn. Nhấp chuột Sau để đi đến bước cuối cùng của trình hướng dẫn.
doc kết hợp 7

4. Trong bước này, chỉ định các cài đặt khi bạn cần. Sau đó nhấp vào Kết thúc.
doc kết hợp 8

5. Một cửa sổ bật ra để bạn chọn một thư mục để đặt sổ làm việc kết hợp, sau đó nhấp vào Lưu.
doc kết hợp 9

Bây giờ các sổ làm việc đã được hợp nhất thành một sổ làm việc. Và ở phía trước của tất cả các trang tính, một trang tính chính có tên Kutools cho Excel cũng được tạo để liệt kê một số thông tin về các trang tính và liên kết cho mỗi trang tính.
doc kết hợp 10

Demo: Kết hợp trang tính / sổ làm việc thành một trang tính hoặc sổ làm việc

Kutools cho Excel: 200 + công cụ tiện dụng hữu ích, đơn giản hóa các tác vụ phức tạp trong Excel thành một vài cú nhấp chuột.

Nói Lời Tạm Biệt Với ​​Tay Chuột và Thoái hóa đốt sống Cổ ngay

300 công cụ nâng cao của Kutools cho Excel giải quyết 80% Các tác vụ Excel trong vài giây, kéo bạn ra khỏi hàng nghìn lần nhấp chuột.

Dễ dàng giải quyết 1500 tình huống làm việc, không cần mất thời gian tìm kiếm giải pháp, có nhiều thời gian để tận hưởng cuộc sống của bạn.

Cải thiện 80% năng suất cho 110000+ người hiệu quả cao mỗi ngày, tất nhiên bao gồm cả bạn.

Không còn bị dày vò bởi những công thức và VBA đau đớn, hãy cho não của bạn được nghỉ ngơi và tâm trạng làm việc vui vẻ.

Dùng thử miễn phí 30 ngày với đầy đủ tính năng, hoàn tiền trong 30 ngày không cần lý do.

Một Cơ Thể Tốt Hơn Tạo Một Cuộc Sống Tốt Đẹp Hơn.


Hợp nhất hai bảng thành một và cập nhật theo cột bằng các nhấp chuột

Nếu bạn muốn hợp nhất hai bảng thành một và cập nhật dữ liệu dựa trên một cột như ảnh chụp màn hình bên dưới, bạn có thể thử Hợp nhất bảng tiện ích của Kutools cho Excel.
doc kết hợp 11

Kutools cho Excel: hơn 200 bổ trợ Excel tiện dụng để đơn giản hóa các tác vụ phức tạp thành một vài cú nhấp chuột trong Excel

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools Plus > Hợp nhất bảng để cho phép Hợp nhất bảng wizard.
doc kết hợp 12

2. Trong bước 1 của trình hướng dẫn, bạn cần chọn riêng phạm vi bảng chính và bảng tra cứu. Sau đó nhấp vào Sau.
doc kết hợp 13

3. Kiểm tra cột quan trọng mà bạn muốn cập nhật dữ liệu trong bảng chính dựa trên. Nhấp chuột Sau.
doc kết hợp 14

4. Sau đó kiểm tra các cột trong bảng chính mà bạn muốn cập nhật dữ liệu dựa trên bảng tra cứu. Nhấp chuột Sau.
doc kết hợp 15

5. Trong bước 4 của trình hướng dẫn, hãy kiểm tra các cột bạn muốn thêm từ bảng tra cứu vào bảng chính. Nhấp chuột Sau.
doc kết hợp 16

6. Trong bước cuối cùng của trình hướng dẫn, chỉ định các tùy chọn cài đặt khi bạn cần. Sau đó nhấp vào Kết thúc.
doc kết hợp 17

Bây giờ bảng chính đã được cập nhật dữ liệu và thêm dữ liệu mới dựa trên bảng tra cứu.

Demo: Kết hợp trang tính / sổ làm việc thành một trang tính hoặc sổ làm việc

Kutools cho Excel: 200 + công cụ tiện dụng hữu ích, đơn giản hóa các tác vụ phức tạp trong Excel thành một vài cú nhấp chuột.


Tải xuống tệp mẫu

mẫu


Các công cụ năng suất được đề xuất

Tab Office - Duyệt theo tab, chỉnh sửa, quản lý tài liệu trong Microsoft Office 2019 - 2003 và Office 365


tab văn phòng

Một bổ trợ chuyên nghiệp để tăng tốc Excel 2019-2007, thu nhỏ nhiệm vụ hàng giờ xuống còn giây

Phần bổ trợ này bao gồm hàng chục nhóm chuyên nghiệp, với hơn 300 tùy chọn sẽ tự động hóa hầu hết các công việc hàng ngày của bạn trong Excel và tăng năng suất của bạn lên ít nhất 50%. Chẳng hạn như nhóm lựa chọn một lần nhấp và chuyển đổi hàng loạt.
Bây giờ là cơ hội để bạn tăng tốc bản thân với Kutools cho Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations