wps合并所有sheet页_wps多个sheet表格合并为一张表

使用wps开发工具中的vb编辑器，粘贴下面代码。然后执行

Sub hz()

Dim bt, i, r, c, n, first As Long

bt = 1 ‘表头有几行，这里的1就改成几

Cells.Clear

For i = 1 To Sheets.Count

If Sheets(i).Name <> ActiveSheet.Name Then

If first = 0 Then

c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column

Sheets(i).Range(“A1”).Resize(bt, c).Copy Range(“A1”)

n = bt + 1: first = 1

End If

r = Sheets(i).Cells(Rows.Count, “A”).End(xlUp).Row

Sheets(i).Range(“A” & bt + 1).Resize(r – 1, c).Copy Range(“A” & n)

n = n + r – bt

End If

Next

End Sub

原创文章，作者：无言，如若转载，请注明出处：http://www.wy609.com/archives/2019/813.html