excel怎么快速合并多个工作表数据到一个工作表
发布网友
发布时间：2022-03-08 21:30
共5个回答
热心网友
时间：2022-03-08 23:00
以WPS 2019版本为例：
关于excel怎么快速合并多个工作表数据到一个工作表，您可使用WPS参考下述步骤完成操作：
1、打开「表格（Excel）」文档；
2、点击「数据-合并表格-多个工作表合并成一个工作表」；
3、勾选需合并的工作表即可。
提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。
热心网友
时间：2022-03-09 00:18
增加一个工作表，放置工作簿第一个工作表，按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运行。
热心网友
时间：2022-03-09 01:52
热心网友
时间：2022-03-09 03:44
下面是汇总多个工作簿的一种情形，也是一名网友提出的问题：在同一文件夹中有多个工作簿，其中
Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls*")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(nm).Activate
'复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub
文库资料：http://wenku.baidu.com/view/0b4f551d59eef8c75fbfb32b?fr=prin
这里有另外两种情形，你看你的是哪一类。
或者，把你的文件发来，帮你弄好
热心网友
时间：2022-03-09 06:25
