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


Bạn đang xem: Cách gộp nhiều sheet excel thành một sheet tổng hợp bằng vba

Trong Excel , giả sử chúng ta có nhiều bảng dữ liệu sinh sống nhiều Sheet khác biệt , toàn bộ những bảng này đều có thông thường một hình dáng định dạng , như hình dưới

 

 

*
 
*
 
*

Làm cầm cố nào nhằm nối tất cả các bảng tài liệu đó lại với nhau vào một Sheet ?

Để có tác dụng được vấn đề này bạn cần sản xuất một macro , phương thức nlỗi sau . Mở tệp tin Excel bạn có nhu cầu nối đầy đủ bảng tài liệu đó lại cùng nhau . Bnóng tổ hợp Alt-F11 để Open sổ Microsoft Visual Basic , vào hành lang cửa số này bạn chọn menu Insert > Module , bạn dán câu chữ 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 lại Excel , chạy macro có tên là Combine , các bạn sẽ thấy một Sheet bắt đầu mang tên là Test được tạo thành cùng với các bảng dữ liệu đã được nối .

 

*

 

Nếu bạn muốn gộp vào Sheet mang tên là gì thì đổi tên Test vào macro trên ,

 

 

 


Họ cùng thương hiệu *
Email của doanh nghiệp *
Lời nhắn *

Các tin khác

Excel : Đổi chữ cái đầu tiên thành viết hoa giữ nguyên phần nhiều phần còn lại Excel : Tìm giá trị lớn số 1 với khá nhiều điều kiện Excel : Chèn số trang vào một ô Cộng hàng loạt phần lớn ô trong số ấy bao gồm đựng cả lỗi Excel ko tự động hóa tính toán thù sau khi biến hóa số liệu Excel : Xóa đều số 0 nghỉ ngơi đầu ô Excel : Lặp lại số thường xuyên Excel : Tìm kiếm nhiều giá trị trả về theo sản phẩm ngang Excel : Gỡ bỏ phần lớn kí trường đoản cú quan trọng chưa hẳn chữ cái Xóa toàn cục bí quyết chỉ còn lại cực hiếm trong tất cả các Sheet

Hỗ trợ trực tuyến


Hotline

04.35141.375


Hỗ trợ kỹ thuật

1088

*


*
*
*

Tin coi những nhất


Đang trực tuyến




Xem thêm: Nhập Vai Rùa Vàng Kể Lại Truyện An Dương Vương Và Mị, Hóa Thân Thành Rùa Vàng Kể Lại Câu Chuyện Mẫu 2

*