Note: The other languages of the website are Google-translated. Back to English

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% nhiệm vụ Excel trong vài giây, giúp bạn thoát khỏi hàng nghìn cú 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!


Nhận xét (168)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
đã sử dụng chức năng Macro đầu tiên của bạn. Ồ! Cảm ơn vì đăng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi nghĩ mã 'Selection.Offset (0, 0) .Resize (Selection.Rows.Count - 1) .Select'không phải ở đó. Cuối cùng của tôi, những gì nó làm là chọn hàng thứ hai trở đi thiếu hàng đầu tiên.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có cùng một vấn đề. Nó đang bỏ qua hàng đầu tiên khỏi trang tính thứ hai được thêm vào.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Loại bỏ các tiêu đề để bạn không có các tiêu đề trùng lặp
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động như một cái duyên, cảm ơn vì đã chia sẻ!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn! Macro hoạt động hoàn hảo.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi không biết, làm thế nào để sử dụng hàm VBN trong excel, bạn có thể vui lòng giúp đỡ làm thế nào để làm điều đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thật sự cảm ơn!!! Rất rất hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Macro một hoạt động tốt. Thanks!! Thật tuyệt vời !!!! :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lưu ý rằng điều này bị giới hạn bởi giới hạn 65k hàng, nếu bạn cần lên đến dòng Selection.Copy Destination: = Sheets (1) .Range ("A65536"). End (xlUp) (2) phạm vi để giải quyết sự cố.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Công cụ tuyệt vời tuy nhiên, nó không kết hợp tất cả 21 trang tính. Làm cách nào để mở rộng phạm vi?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
GHI CHÚ!!! Bạn cần phải cẩn thận với macro .. nó sẽ hoạt động nếu dữ liệu của bạn có luồng thông tin liên tục và không có hàng trống. đây là những gì dòng "Selection.CurrentRegion.Select" thực hiện. Ví dụ: nếu bạn cần sao chép TẤT CẢ dữ liệu trên bảng tính nhưng có một dòng trống ở (giả sử) hàng 200, macro sẽ chỉ sao chép xuống hàng 200; NÓ SẼ TIẾT LỘ TẤT CẢ CÁC DỮ LIỆU DƯỚI ĐÂY RỒI !!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có ai biết một lệnh để tránh vấn đề này? Vấn đề với Selection.Offset (1, 0) .Resize (Selection.Rows.Count - 1) .Select có thể được giải quyết? Selection.Rows.Count - 1) là lệnh bắt nguồn sự cố. Bất cứ ai??
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay vì bắt đầu từ phía trên và đi xuống, hãy bắt đầu từ phía dưới và đi lên
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có ai biết mã để giải quyết các vấn đề về hàng và cột trống không ?. Tôi có nó trong dữ liệu của mình nhưng không có giải pháp đơn giản nào là bắt đầu từ dưới lên? Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để xóa các hàng trống: Cách 1: Chọn các ô trong cột A cần xóa. Sử dụng Ctrl - và sau đó chọn Toàn bộ Hàng trong cửa sổ bật lên. Lưu sổ làm việc và thoát. Sau đó, mở sổ làm việc. Tùy chọn 2: Chọn các hàng cần xóa. Sử dụng Ctrl -. Lưu sổ làm việc và thoát khỏi Sổ làm việc đang mở. Đã đưa ra tùy chọn 1 để nó hiển thị cho bạn những gì đang xảy ra. Để xóa các cột trống: Chọn cột. Điều khiển -. Lưu sổ làm việc và thoát khỏi Sổ làm việc đang mở.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng ta có giải pháp nào để sao chép dữ liệu bên dưới ô trống không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn ! Hàng thứ 2 của tôi trống trong tất cả các tờ và tôi đã bối rối.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
mã vba hoạt động tốt nhưng tôi cần trang tính kết hợp cập nhật khi tôi thêm hàng mới hoặc dữ liệu mới vào các ô trong trang tính mà tôi đang kết hợp. Có cách nào làm được việc này không? Cảm ơn sự giúp đỡ của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã macro hoạt động tốt cho trang tính kết hợp đầu tiên, nhưng tôi cần trang tính kết hợp cập nhật khi tôi thêm dữ liệu vào các trang tính hiện có mà tôi đang kết hợp. Có cách nào làm được việc này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đã bao giờ tìm ra cách cập nhật nó trong trang chủ khi bạn thêm vào các hàng vào các trang tính khác chưa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Công việc xuất sắc .. Điều này đã được giảm bớt công việc của tôi từ 2 giờ xuống còn 10 phút.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt vời, tôi đã sử dụng cả macro đầu tiên và Kutools, cả hai đều đã giảm công việc thu thập và biên dịch dữ liệu của tôi rất nhiều. Cám ơn vì đã chia sẻ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi chỉ xóa phần được đưa ra bên dưới và bây giờ nó chỉ cập nhật. Hy vọng điều này sẽ giúp ... Sheets (1). Chọn Worksheets.Add
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã hoạt động tuyệt vời! Tôi cần macro để sao chép tất cả dữ liệu trên trang tính. Nó đang cắt bỏ hàng đầu tiên sau Trang tính 1. Chỉ trang một có hàng tiêu đề, các trang khác chỉ là dữ liệu. Điều này có khả thi không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có câu hỏi về "Hợp nhất tất cả các trang tính thành một trang tính với mã VBA": Mã hoạt động rất tốt, nhưng chỉ khi nó trống, nó thêm tiêu đề, có thể sửa đổi mã để nói không hợp nhất trang tính trống không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn đã tiết kiệm cho tôi một giờ sao chép và dán: D
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có hai sổ làm việc, cùng một dữ liệu nhưng sổ thứ hai có thêm dữ liệu và một số dữ liệu đã được cập nhật, trạng thái inv # Trạng thái 123 7/2 mở inv # trạng thái 123 7/2 mở 7/7 đã đóng cách hợp nhất thành một xóa hoặc đánh dấu các bản sao và thêm bất kỳ inv # mới nào không có trong cái đầu tiên
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động tốt nếu Cột A của bạn không = trống. Trên các trang tính có cột A trống, nó dường như đang ghi đè. Trong dtaa của tôi, cột E là một ô trống trên tất cả các trang tính. Làm cách nào tôi có thể sửa đổi Đích sao chép để tính cho cột A trống trên một số trang tính?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub CopySheet () '' CopySheet Macro '' Dim i As Integer For i = 2 to 25 Sheets ("Sheet1"). Chọn Range ("A1"). Chọn Selection.End (xlDown) .Select Range ("A" & CStr (Selection.Row) + 1). Chọn Trang tính ("Trang tính" & CStr (i)). Chọn Phạm vi ("A2"). Chọn Phạm vi (Lựa chọn, Lựa chọn.End (xlDown)). Chọn Phạm vi (Lựa chọn, Lựa chọn .End (xlToRight)). Chọn Selection.Cut Sheets ("Sheet1"). Chọn ActiveSheet.Paste Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Range ("A: A"). SpecialCells (xlCellTypeLastCell). Chọn ActiveCell.Offset (1, 0) .Select 'sử dụng mã này để chọn ô cuối cùng trong cột "A" [quote] Sub CopySheet ()' 'CopySheet Macro' 'Dim i As Integer For i = 2 to 25 Sheets ("Sheet1"). Chọn Range ("A1"). Chọn Selection.End (xlDown) .Select Range ("A" & CStr (Selection.Row) + 1) . Chọn Trang tính ("Trang tính" & CStr (i)). Chọn Phạm vi ("A2"). Chọn Phạm vi (Lựa chọn, Lựa chọn.End (xlDown)). Chọn Phạm vi (Lựa chọn, Lựa chọn.End (xlToRight)). Chọn Lựa chọn .Cut Sheets ("Sheet1"). Chọn ActiveSheet.Paste Next End SubBởi clopez[/ B]
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
MÃ VĨ MÔ HOẠT ĐỘNG RẤT TUYỆT VỜI ... FAB CÔNG VIỆC :-)
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất