EXCEL多sheet合并

发布网友发布时间：2022-04-20 21:15

我来回答

共2个回答

热心网友时间：2023-06-27 14:15

以WPS 2019版本为例：

关于EXCEL多sheet如何合并，您可使用WPS参考下述步骤完成操作：

1、打开「表格（Excel）」文档；

2、点击「数据-合并表格-多个工作表合并成一个工作表」；

3、勾选需合并的工作表即可。

提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。

热心网友时间：2023-06-27 14:16

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).UsedRange.Columns.Count '修改了本行
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