Cách gộp các sheet thành 1 sheet

Bạn cần gộp dữ liệu trong nhiều sheet vào chung một sheet? Bạn lo sợ copy/paste từng sheet sẽ rất tốn thời gian và dễ xảy ra sai sót cho file tổng hợp? Hãy theo dõi bài viết sau để biết cách gộp nhiều sheet vào một sheet trong Excel một cách nhanh chóng và đơn giản.

Ví dụ ta cần gộp 3 sheet A, B, C vào thành một sheet như hình dưới.

Cách gộp các sheet nhanh nhất là sử dụng code VBA. Code VBA có thể giúp bạn gộp dữ liệu của tất cả sheet trong file Excel hiện tại thành một sheet mới. Điều kiện cần thiết là tất cả trang tính phải có cùng cấu trúc, cùng tiêu đề cột và thứ tự cột. Các bạn hãy làm theo các bước sau:

Bước 1: Đầu tiên các bạn nhấn tổ hợp phím tắt Alt + F11 để mở cửa sổ của VBA.

Bước 2: Tiếp theo, các bạn chọn thẻ Insert. Thanh cuộn hiện ra các bạn chọn mục Module.

Bước 3: Cửa sổ Module hiện ra, các bạn copy đoạn code dưới đây rồi paste vào cửa sổ.

Sub Combine[] 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

Bước 4: Sau đó các bạn nhấn F5 để chạy mã.

Chỉ cần như vậy là dữ liệu trong tất cả sheet trong file Excel đã được gộp vào một sheet tên là Combined được đặt trước các sheet khác.

Như vậy, bài viết trên đã hướng dẫn các bạn cách gộp nhiều sheet vào một sheet trong Excel. Hy vọng bài viết sẽ hữu ích với các bạn trong quá trình làm việc. Chúc các bạn thành công!

Xem thêm

Tải về file Excel tính chi phí cho một ca máy và thiết bị xây dựng

Cách hiện đuôi của file Excel và sự khác nhau giữa các loại đuôi

Điểm danh 11 hàm excel thông dụng nhất cho dân kế toán

Mời bạn đọc tải về file Excel lập báo cáo tài chính theo Thông tư 133

Hướng dẫn cách vô hiệu hóa và xóa Add-in trong Excel

Khi thống kê, người dùng có thói quen chia nhỏ dữ liệu thành từng Sheet theo khoảng thời gian hay theo tiêu chí phân loại đặc thù. Tuy nhiên khi cần tổng hợp và phân tích số liệu, người dùng cần phải gộp các Sheet vào thành một trang tính để dễ dàng tính toán và phân tích hơn. Hầu hết người dùng sẽ sử dụng công cụ cắt, dán để tổng hợp các sheet, tuy nhiên thì việc làm này khiến cho mất nhiều thời gian và có thể dẫn đến sai sót nếu người dùng sao chéo thừa, hoặc thiếu một trường thông tin nào đó. Hôm nay Thủ Thuật 123 sẽ hướng dẫn các bạn cách tổng hợp từ nhiều Sheet vào một Sheet trong Excel bằng công cụ VBA.

Bật thẻ Developer trên Ribbon

Để sử dụng lệnh Marco hay VBA, trước tiên bạn phải khởi tạo thẻ Developer trên thanh Ribbon. Nếu như Excel của bạn đã bật thẻ Developer rồi thì bỏ qua bước này.

Bước 1: Vào File chọn Options.

Bước 2: Cửa sổ Excel Options hiện ra => Chọn dòng Customize Ribbon [1] --> Tích vào Developer [2] => Nhấn nút OK [3].

Thẻ Developer đã xuất hiện trên Ribbon. Giờ đây bạn có thể dùng Macro cho excel.

Sử dụng mã VBA để tổng hợp nhiều Sheet thành 1 Sheet

Ví dụ bạn có bản danh sách học sinh các lớp của trường A, bạn cần tổng hợp chúng vào một Sheet.

Bước 1: Mở cửa sổ Microsoft Visual Basic for Applications  [VBA] bằng cách nhấn tổ hợp phím Alt + F11.

Bước 2: Cửa sổ VBA xuất hiện. Nhấn chuột vào nút Insert [1] => Chọn Module [2].

Bước 3: Dán đoạn mã sau vào cửa sổ Module.

Sub Combine[] Dim J As Integer On Error Resume Next Sheets[1].Select Worksheets.Add Sheets[1].Name = "Tonghop" 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

Bước 4: Trên cửa sổ Module sau khi sao chép đoạn mã trên, Nhấn F5 để chạy mã.

Bước 5: Kết quả là tất cả dữ liệu trong bảng tính đã được hợp nhất thành trang tính Tonghop được đặt trước các trang tính khác.

Lưu ý:

• Để kết quả được đồng nhất và chuẩn xác, vậy tiêu đề và thứ tự các cột của từng Sheet phải đồng nhất.
• Để đoạn mã Macro trên có thể chạy mà không sảy ra lỗi, thì tiêu đề phải bắt đầu từ ô A1, và dữ liệu cần lấy là từ dòng thứ 2 của tất cả các Sheet.
• Đọan mã Macro trên chỉ tổng hợp nhiều Sheet trong một bảng tính [một file Excel] mà không tổng hợp nhiều Sheet từ nhiều trang tính.

Hy vọng bài viết này giúp ích được cho bạn. Chúc các bạn thành công!

Trong khi sử dụng phần mềm Excel để soạn thảo hoặc thống kê dữ liệu, chắc hẳn các bạn sẽ đối mặt với việc sử dụng nhiều sheet để lưu trữ dữ liệu sau đó lại muốn phải gộp dữ liệu trên nhiều sheet vào cùng một sheet để tổng hợp. Trong bài viết này, ThuThuatPhanMem.vn sẽ hướng dẫn các bạn cách gộp nhiều sheet thành một nhanh chóng.

Bình thường nghĩ tới việc gộp nhiều sheet thành một trong Excel, có lẽ sẽ có một số bạn nghĩ tới cách làm thủ công đó là copy dữ liệu từ sheet này để paste sang sheet khác. Tuy vậy, là một người sử dụng Excel thông minh thì chúng ta có thể sử dụng thủ thuật để gộp nhiều sheet chứ không cần phải sao chép và dán dữ liệu thủ công.

Dựa theo một ví dụ dưới đây, chúng ta có hai sheet dữ liệu như hình dưới, ThuThuatPhanMem.vn sẽ thực hiện công việc gộp dữ liệu trên hai sheet đầu đó vào sheet Tổng hợp ở cuối.

Để có thể gộp sheet vào với nhau, các bạn sử dụng Microsoft Visual Basic của Excel.

Các bạn sử dụng tổ hợp phím Alt F11 để bật Microsoft Visual Basic lên, tiếp đó các bạn click vào tab Insert trên thanh công cụ của Visual Basic rồi chọn dòng Module.

Tiếp đó các bạn dán đoạn code sau đây vào khung soạn thảo của Microsoft Visual Basic:

Sub MergeSheets[] Const NHR = 1 Dim MWS As Worksheet Dim AWS As Worksheet Dim FAR As Long Dim LR As Long Set AWS = ActiveSheet For Each MWS In ActiveWindow.SelectedSheets If Not MWS Is AWS Then 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]].Copy AWS.Rows[FAR] End If Next MWS End Sub

Sau đó các bạn click vào trang Excel chính, các bạn mở sheet mình muốn tổng hợp các sheet khác vào. Sau đó các bạn bấm giữ phím Ctrl rồi chọn những sheet muốn tổng hợp.

Sau đó các bạn click mở ribbon View trên thanh công cụ.

Chọn Marcos và chọn dòng View Macros.

Khi bảng Macro xuất hiện, các bạn có thể thấy trong danh sách chạy Macro có dòng MergeSheets. Các bạn chọn dòng này rồi click vào Run để chạy lệnh.

Như vậy sheet tổng hợp của bạn sẽ được gộp được dữ liệu của những sheet đã chọn.

Bài viết hướng dẫn việc gộp nhiều sheet thành một sheet của ThuThuatPhanMem.vn chúng tôi tới đây là kết thúc. Hi vọng rằng thông qua bài viết này, các bạn đã nắm được phương pháp gộp nhiều sheet vào một sheet. Hẹn gặp lại các bạn trong những bài viết khác trên trang.