Gộp nhiều sheet thành 1 sheet trong excel

Hướng dẫn gộp nhiều sheet trong 1 file excel thành 1 sheet.

Bước1:

Tạo 1 sheet trắng

Bước2: Bấm Alt+F11

Bước3: Nhập mã code sau: vào insert chè n insert modus (đính kèm)

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

save lại

Bước4: đặt chuột tại ô trống đầu tiên trong sheet trắng.

Bước5: Chọn tất cả các sheet chứa dữ liệu muốn gộp (Shift + sheet cuối cùng)

Bước6: Alt+F8

Bước7: Run.

Bước8: Cắt phần thừa

Chúc các bạn thành công.

Video thực hiện bởi: [email protected]

#Hướngdẫngộpnhiềusheettrong1fileexcelthành1sheet.
#gộpnhiềusheettrong1fileexcelthành1sheet.
#gộpnhiềusheetthành1sheet.

Tag: cách ghép các sheet trong excel, #gộpnhiềusheetthành1sheet.,#gộpnhiềusheettrong1fileexcelthành1sheet.,#Hướngdẫngộpnhiềusheettrong1fileexcelthành1sheet., Gộp nhiều sheet thành 1 sheet trong excel

Xem thêm: https://taichinh4u.net/category/cong-nghe

Nguồn: https://taichinh4u.net