Cách Gộp Nhiều Sheet Vào 1 Sheet Excel Thành Một Sheet Tổng Hợp Bằng Vba

Tin tức Tư vấn Tri thức Tin VPhường Bảo mật Mạng Máy cỗ Phần mềm

Bạn đang xem: Cách Gộp Nhiều Sheet Vào 1 Sheet Excel Thành Một Sheet Tổng Hợp Bằng Vba

Trong Excel , mang sử bạn có tương đối nhiều bảng tài liệu sống các Sheet khác biệt , tất cả những bảng này đều phải có tầm thường một mẫu mã định dạng , như hình dưới

Làm núm nào nhằm nối tất cả mọi bảng dữ liệu này lại cùng nhau trong một Sheet ?

Để làm được câu hỏi này bạn cần sản xuất một macro , phương thức như sau . Mlàm việc file Excel bạn muốn nối hồ hết bảng tài liệu này lại với nhau . Bnóng tổng hợp Alt-F11 để Open sổ Microsoft Visual Basic , trong cửa sổ này các bạn lựa chọn menu Insert > Module , chúng ta dán nội dung bên dưới

Sub Combine()

Dyên J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Test"

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

Quay quay trở về Excel , chạy macro có tên là Combine , các bạn sẽ thấy một Sheet mới mang tên là Test được tạo nên với đầy đủ bảng tài liệu đã làm được nối .

Nếu bạn muốn gộp vào Sheet có tên là gì thì thay tên Test trong macro trên ,

Họ và tên *
Email của chúng ta *
Lời nhắn *

Các tin khác

Excel : Đổi chữ cái trước tiên thành viết hoa không thay đổi phần nhiều phần còn lại Excel : Tìm quý hiếm lớn số 1 với khá nhiều ĐK Excel : Cnhát số trang vào trong 1 ô Cộng hàng loạt gần như ô trong những số ấy tất cả cất cả lỗi Excel không tự động hóa tính tân oán sau khi biến hóa số liệu Excel : Xóa mọi số 0 nghỉ ngơi đầu ô Excel : Lặp lại số tiếp tục Excel : Tìm tìm các giá trị trả về theo hàng ngang Excel : Gỡ quăng quật gần như kí từ bỏ đặc trưng không hẳn vần âm Xóa toàn bộ phương pháp chỉ còn lại giá trị trong tất cả những Sheet

Xem thêm: Học Viện Ngoại Giao Những Cái Chết Không Báo Trước, Từ Cái Duyên Dav Đến Giấc Mơ Paris