知识大全如何将同工作簿中多个工作表合并成一个

Posted 2022-07-09 程式

篇首语：石可破也，而不可夺坚；丹可磨也，而不可夺赤。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何将同工作簿中多个工作表合并成一个相关的知识，希望对你有一定的参考价值。

如何将同工作簿中多个工作表合并成一个

把多个工作表合并到到一张表，最快捷的方法是用巨集处理：
例如将多个表合并到总计表：
总计表只留一个标题
右键点汇总工作表标签，检视程式码，把如下程式码复制进去， F5执行:
Sub 工作表合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub

如何将一个 Excel 工作簿中的多个工作表合并成一个工作表

参考：:jingyan.baidu./article/624e7459afacef34e8ba5ab6.

1、新建一个资料夹、将要合并的表格放到里面、新建一个表格、用excel开启、右击Sheet1
2、选择检视程式码（PS：excel有着一项，WPS没有）
3、将下列程式码复制到文字框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、点选执行、一段时间（取决于表格的大小和多少）后，合并完成了。

Excel 如何将包含多个工作表的工作簿合并成一个工作簿

使用条件1：有若干个工作薄，每个工作薄有若干工作表，要把这些所有工作表收集到一个工作薄中来，并以原工作薄名加上“--”，再加上原工作表名的方式在该工作薄中命名。
使用条件2：有若干个工作薄，每个工作薄有若干工作表，要从每个工作薄中按关键字收集工作表到一个工作薄中来。按著指定的关键字确定要收集哪些工作表，关键字可以是手动输入的，也可以是各自工作薄名称为关键字。然后再区分要收集的工作表名称是否与关键字完全相同，或是关键字仅为要收集的工作表名称中的一部分。如果要收集与关键字完全相同的工作表，那么收集到新工作薄中后会以原工作薄命名该工作表，如果关键字仅为要收集的工作表名中的一部分，那么收集到新工作薄中后会以原工作薄名加上“--”，再加上原工作表名的方式命名。
1、首先要选择是否要把要收集过来的工作表数值化。
2、确定要收集所有工作表，还是特定的一张工作表。
3、如果选择只收集特定的一张工作表，就要选择关键字的取法：以各工作薄的名称为关键字，或是以手动输入的字元为关键字。
4、关键字确定好后，要确定要收集的工作表的名称是否与关键字完全相同，还是说关键字仅是要收集的工作表名称中的一部分。
5、最后就是选择要收集的工作薄了。
6、收集的工作薄放在一个名叫“收集的工作薄.xlsx”中，该工作薄放在本工作薄所在目录下面名称为“收集工作薄”的资料夹下面。

如何将一个excel表中多个工作簿合并成一个

方法/步骤
如图：有二个工作簿，每一个工作簿中都有若干个工作表，在做合并之前，我们要将这两个工作表开启。
在其中一个工作簿选择所有的工作表，方法是先选择第一个工作表，按住shift键，然后点最后一个工作表，这样就可以快速全部选中
当然，你也可以右击任意一工作表，在弹出的选单中选择“选定全部工作表”选择所有的工作表。
右击工作表标签，在弹出的选单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。
这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。
这里需要注意的是如果两个工作簿，有相同名字的工作簿的话，系统自动用（2）来命名。
7
这样做的话，当前工作簿不会发生变化，复制移动的工作簿，会合并两个工作表的所有内容。
8
如图你不想影响原来档案的话，你最好可以新建一个空白工作再复制移动工作表到新的档案啊。

如何将多个excel表合并成一个工作簿

开启你的工作簿新建一个工作表在这个工作表的标签上右键检视程式码你把下面的程式码复制到里边去，然后上面有个执行执行子程式就可以了，程式码如下，如果出现问题你可以尝试工具巨集巨集安全性里把那个降低为中或者低再试试
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

如何将wps中多张工作表合并成一个

将不同的WPS表格合并到一起更便于管理、方便资料查询。不同的WPS表格移动到一起的方法如下：1、开启要移动的WPS表格，然后右键单击底部的WPS工作表档名，在弹出的选项中选择“移动或复制工作表”;2、选择要移动合并到指定的工作薄，工作表放在的位置，如果要保留原来的WPS表格，那么就勾选”建立副本“；3、单击【确定】，这样WPS表格就合并完成了。

excel2016中如何将多个工作簿合并成工作表

将需要合并的excel工作簿档案放置在一个资料夹中。
每个资料夹中的工作簿都输入了简单的内容。
在该资料夹中，新建立一个新的excel工作簿档案。重新命名为8.
开启新建立的excel工作簿档案8.按Alt+F11或者将滑鼠移动到下方工作表名称sheet1上右键，选择检视程式码。
在弹出的程式码编辑视窗中，输入程式码。注意：通过快捷键Alt+F11开启的视窗如下没有直接复制程式码的面板，需要点选左上方的工程-VBA project模组，双击sheet1，即可开启程式码视窗。而步骤3中的第二种方法可以直接开启程式码输入视窗。
在程式码视窗中，黏贴下列程式码：
Sub CombineFiles()
Dimpath As String
DimFileName As String
DimLastCell As Range
DimWkb As Workbook
DimWS As Worksheet
DimThisWB As String
Dim MyDir AsString
MyDir =ThisWorkbook.path & "\\"
\'ChDriveLeft(MyDir, 1) \'find all the excel files
\'ChDir MyDir
\'Match =Dir$("")
ThisWB =ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path =MyDir
FileName =Dir(path & "\\*.xls", vbNormal)
Do UntilFileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\\"& FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Set Wkb =Nothing
Set LastCell= Nothing
End Sub
点选选单栏执行-执行子过程-使用者窗体。关闭程式码输入视窗。开启excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。

如何把excel中多个工作表合并成一个

利用excel表的巨集计算可以把多个工作表合并成一个。方法如下：
工具/原料：
多个excel表资料丶microsoft office
步骤：
1.需要把多个excel表都放在同一个资料夹里面，并在这个资料夹里面新建一个excel。如图所示：
2.用microsoft excel开启新建的excel表，并右键单击sheet1，找到“检视程式码”，单击进去。进去之后就看到了巨集计算介面。如图所示：
3.然后把下面这些巨集计算的程式码复制进去，然后找到工具栏上面的“执行”下的“执行子过程/使用者窗体”，程式码如下，如图所示：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4.执行之后，等待10秒针左右，等执行完毕，就是合并完成之后，会有提示，点确定就可以了。检视合并后的资料，有5000多行，就是同一个资料夹里面17个excel表资料合并后的结果。效果如图所示。
注意事项：
金山的WPS没有巨集计算功能。只能用microsoft excel来实现。

知识大全 如何将同工作簿中多个工作表合并成一个