Excel - Hợp nhất một số bảng tính thành một
Vấn đề
Tôi sử dụng Excel để lưu trữ thông tin về một số sản phẩm và có một bảng tính khác nhau cho mỗi phạm vi. Làm cách nào để hợp nhất (kết hợp tuần tự) tất cả các bảng tính này vào một trang? Tất cả các bảng tính có cùng số lượng cột, có cùng tiêu đề (ở hàng trên cùng).
Làm thế nào để tiến hành?
Dung dịch
Giả sử răng:
1. Một tờ có tiêu đề Hợp nhất có thể được tạo và xóa bằng macro
2. Tiêu đề nằm trên hàng 1 trên tất cả các tờ và phổ biến cho tất cả
3. Tất cả các tờ sẽ được sao chép
Sub CombineSheets () Dim lConRow As Long Dim Sheet As Variant Dim sConsolidatedSheet As String Dim lSheetRow As Long Dim sLastCol As String sConsolidatedSheet = "Hợp nhất" On Error Resume Next Sheets sConsolidatedSheet cho mỗi trang tính trong trang tính Nếu trang tính.Name = sConsolidatedSheet Sau đó GoTo Next_Sheet If sLastCol = "" Sau đó sLastCol = Sheet.Cells (1, Cột. Tài khoản) 1 ") = Trang tính." (1: 1 ") xlByRows, SearchDirection: = xlPreingly) .Row On Error GoTo 0 If (lSheetRow> 1) Sau đó, Sheets (sConsolidatedSheet). & lSheetRow) .Vue
Cảm ơn rizvisa1 cho mẹo này.