以WPS 2019版本为例:
关于excel怎么快速合并多个工作表数据到一个工作表,您可使用WPS参考下述步骤完成操作:
1、打开「表格(Excel)」文档;
2、点击「数据-合并表格-多个工作表合并成一个工作表」;
3、勾选需合并的工作表即可。
提示:在设置合并工作表时也可添加其他「表格(Excel)」文档来选择其他文档的工作表来合并。
增加一个工作表,放置工作簿第一个工作表,按alt+f11,(打开代码窗口);
2.按F7调出代码窗口;
3.将下列数据复制到窗口;
Sub hebing() '把各分表合并到第一个总表工作中
Rows("2:65536").Clear
Dim sht As Worksheet, xrow As Integer, rng As Range
For Each sht In Worksheets '遍历工作簿中所有工作表
If sht.Name <> ActiveSheet.Name Then
Set rng = Range("a65536").End(xlUp).Offset(1, 0) '获得总表A列第一个非空单元格并下移一个单元格
xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 '获得分表中的记录行数
sht.Range("a2").Resize(xrow, 7).Copy rng '分表自A2单元格扩展并复制
End If
Next
End Sub
4.按F5运行。