多工作表合并（含表名）

lsc900707

晚点回复你，现在外面。

桥xilo

Sub 多表合并2()
    With Worksheets("总表")
        .Cells.Clear
        .Cells(1).Resize(1, 5) = Array("料品名称", "单位", "销货量", "销货额", "工作表名")
            For Each ws In Worksheets
                rw = Range("a65536").End(xlUp).Row + 1
                If ws.Name <> "总表" Then
                    ws.UsedRange.Offset(1).Copy .Range("a" & rw)
                    rw2 = Range("e65536").End(xlUp).Row + 1
                    rw3 = Range("a65536").End(xlUp).Row
                    Range(Cells(rw2, 5), Cells(rw3, 5)) = ws.Name
                End If
            Next
        .Cells.EntireColumn.AutoFit
        .UsedRange.Borders.LineStyle = 1
        .Move before:=Worksheets(1)
    End With
End Sub