Thêm code gộp sheet

[nh0c_nhoem]

Xin chào mọi người!

Hiện tại em có code gộp sheet như bên dưới. Và em muốn chèn thêm 1 cột tên sheet ở cột đầu tiên nữa. Nhờ mọi người thêm giúp giúp em đoạn code để nó hiển thị tên sheet. kẻo dữ liệu em copy vô chung thì không biết nó của sheet nào. Em cám ơn!


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

 

[nguyenthuy13388]

Xin chào mọi người!

Hiện tại em có code gộp sheet như bên dưới. Và em muốn chèn thêm 1 cột tên sheet ở cột đầu tiên nữa. Nhờ mọi người thêm giúp giúp em đoạn code để nó hiển thị tên sheet. kẻo dữ liệu em copy vô chung thì không biết nó của sheet nào. Em cám ơn!


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

Bạn thử:

Sub MergeSheets()
Dim MWS As Worksheet
Dim AWS As Worksheet
Dim FAR As Long
Dim LR As Long, LC 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
        LC = MWS.UsedRange.Cells(MWS.UsedRange.Cells.Count).Column
        MWS.Range(MWS.Cells(1, 1), MWS.Cells(LR, LC)).Copy Destination:=AWS.Range("B" & FAR)
        With AWS
            .Range(.Cells(FAR, 1), .Cells(FAR + LR - 1, 1)).Value = "Sheet Name: " & MWS.Name
        End With
    End If
Next MWS
End Sub

 

[nh0c_nhoem]

Bạn thử:

Sub MergeSheets()
Dim MWS As Worksheet
Dim AWS As Worksheet
Dim FAR As Long
Dim LR As Long, LC 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
        LC = MWS.UsedRange.Cells(MWS.UsedRange.Cells.Count).Column
        MWS.Range(MWS.Cells(1, 1), MWS.Cells(LR, LC)).Copy Destination:=AWS.Range("B" & FAR)
        With AWS
            .Range(.Cells(FAR, 1), .Cells(FAR + LR - 1, 1)).Value = "Sheet Name: " & MWS.Name
        End With
    End If
Next MWS
End Sub

Đúng như ý em luôn. em cám ơn ạ! <3