Khi chúng ta sử dụng Excel, bạn thường hợp nhất nhiều sheet vào một sheet lớn để phân tích và tính toán dữ liệu dễ dàng hơn. Hầu hết người sử dụng sử dụng lệnh sao chép và dán, nhưng khi có nhiều sheet tính, cách này rất tốn thời gian. Trong bài viết này, Gitiho.com sẽ hướng dẫn các bạn một số mẹo để giải quyết vấn đề.
Hợp nhất tất cả sheet từ một file excel đang mở thành một sheet tính bằng VBA:
Giả sử bạn có ba sheet tính (Grade1, Grade2, Grade3) chứa thông tin của học sinh, bạn cần hợp nhất chúng vào một sheet tính như hình dưới đây :
Hướng dẫn gộp nhiều Sheet Excel thành một Sheet tổng hợp bằng VBA
Mã VBA sau có thể giúp bạn lấy dữ liệu của tất cả sheet tính từ file tính đang hoạt động và kết hợp chúng thành trang tính mới. Đồng thời, 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. Hãy làm như sau:
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 |
Chú ý.
(1) Dữ liệu của bạn phải bắt đầu từ ô A1, nếu không đoạn mã sẽ không hoạt động.
(2) Dữ liệu của bạn phải có cùng cấu trúc.
(3) Mã này chỉ có thể kết hợp tất cả trang tính của một bảng tính, nếu bạn muốn hợp nhất nhiều trang tính từ nhiều bảng tính khác nhau, đoạn mã này sẽ không hoạt động.
Xem thêm: Học VBA từ cơ bản cho người mới
VBA giúp ích rất nhiều trong công việc: giúp bạn tăng tốc trong quá trình xử lý trên excel, giúp lập các báo cáo tự động, điều khiển các chương trình khác như word, power point, outlook… giúp biến file excel của bạn trở thành 1 phần mềm chuyên nghiệp…
Tài liệu kèm theo bài viết
Khóa học liên quan