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

推荐使用EXCEL的易永宝，直接百度搜索，下载，安装之后，打开EXCEL会出现合并工作簿，同一个工作簿的表会合并到一张表，如图

热心网友 时间：2022-03-09 03:44

alt+F11,把这段代码放进去看看。

下面是汇总多个工作簿的一种情形，也是一名网友提出的问题：在同一文件夹中有多个工作簿，其中
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

请参考：http://jingyan.baidu.com/article/b7001fe172fb0e7382dd51.html