合并sheet，并在合并表中有一列为sheet的名字，

hellikawhi2

同一个工作簿中，合并多个工作表，标题一样，但是有的工作表只有标题，没有数据，合并后的表里面第一列为该工作表的表名，

hellikawhi2

只有wps，没有Power Query

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Set sh = Sheets("合并")
    sh.UsedRange.Offset(1).ClearContents
    For Each sht In Sheets
        arr = sht.UsedRange
        If UBound(arr) > 1 Then
            r = sh.Cells(Rows.Count, 1).End(3).Offset(1).Row
            sht.UsedRange.Offset(1).Copy sh.Cells(r, 2)
            sh.Cells(r, 1).Resize(UBound(arr) - 1).Value = sht.Name
        End If
    Next sht
    Application.ScreenUpdating = True
End Sub

liulang0808

供参考。。。。。。。。。。。。。。

zlzz1971

请使用WPS运行。

tanglf188

这种帖子以后就不用发了，站内搜索就有了。