Nếu bạn nhận được sổ làm việc có dữ liệu có cấu trúc giống hệt nhau trên mỗi trang tính, bạn có thể quan tâm đến cách kết hợp nhiều trang tính thành một trang tính lớn duy nhất.

Khái niệm đằng sau việc thực hiện điều chỉnh khá dễ dàng: Bạn chỉ cần sao chép dữ liệu từ trang tính thứ hai và tiếp theo vào hàng trống đầu tiên trên trang tính đầu tiên. Excel không bao gồm một công cụ cho phép bạn làm điều này tự động, nhưng nó là một ứng cử viên tuyệt vời cho macro. Tuy nhiên, hãy nhớ rằng cấu trúc của mỗi trang tính bạn đang điều chỉnh phải giống nhau.

Macro sau bước qua tất cả các trang tính và kết hợp dữ liệu vào một trang tính mới mà nó thêm vào ở đầu sổ làm việc.

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

Khi macro được thực hiện xong, trang tính đầu tiên trong sổ làm việc, có tên là Kết hợp, có tất cả dữ liệu từ các trang tính khác. Các trang tính khác không thay đổi.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (8884) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: