EXCEL高手进！如何将多个工作簿变成一个工作簿里的工作表呢？

发布网友 发布时间：2022-03-03 03:13

我来回答

共5个回答

懂视网 时间：2022-03-03 07:34

产品型号：ASUS S340MC

系统版本：Windows 10

软件版本：Microsoft Office Excel 2019

多个工作簿汇总成一个工作簿总共分为5步操作，具体的操作步骤如下：

1、首先在电脑上打开要编辑的Excel表格，打开后点击上方工具栏中的“数据”。

2、点击“获取数据”，选择“来自文件”、“从文件夹”，接着打开要汇总工作簿的文件夹。

3、在新弹出的窗口中点击“转换数据”，在编辑器中点击content旁边的箭头图标。

4、在合并文件窗口选择“参数1”，点击“确定”。然后点击date旁边的箭头图标，点击“确定”。

5、接着点击“关闭并上载”，选择“关闭并上载至”，最后点击“确定”即可。

总结

1、首先在电脑上打开要编辑的Excel表格，打开后点击上方工具栏中的“数据”。

2、点击“获取数据”，选择“来自文件”、“从文件夹”，接着打开要汇总工作簿的文件夹。

3、在新弹出的窗口中点击“转换数据”，在编辑器中点击content旁边的箭头图标。

4、在合并文件窗口选择“参数1”，点击“确定”。然后点击date旁边的箭头图标，点击“确定”。

5、接着点击“关闭并上载”，选择“关闭并上载至”，最后点击“确定”即可。

热心网友 时间：2022-03-03 04:42

这里有三种，看下哪种更适合你。
有许多实现Excel工作簿合并的方法，在《将多个工作簿中的数据合并到一个工作簿》中介绍过合并工作簿的示例。下面再列举几个示例，供有兴趣的朋友参考。
例如，需要将多个Excel工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:\示例\数据记录\”文件夹中，含有两个工作簿test1.xls、test2.xls（当然，可以不限于两个），在test1.xls工作簿中含有三张工作表，在test2.xls工作簿中含有两张工作表，现在使用一段VBA代码合并这两个工作簿到一个新工作簿中，合并到新工作簿中的工作表分别以原工作簿名加索引值命名。代码如下：

Sub CombineWorkbooks()
Dim strFileName As String
Dim wb As Workbook
Dim ws As Object

'包含工作簿的文件夹,可根据实际修改
Const strFileDir As String = "D:\示例\数据记录\"

Application.ScreenUpdating = False

Set wb = Workbooks.Add(xlWorksheet)
strFileName = Dir(strFileDir & "*.xls*")

Do While strFileName <> vbNullString
Dim wbOrig As Workbook
Set wbOrig = Workbooks.Open(Filename:=strFileDir & strFileName, ReadOnly:=True)
strFileName = Left(Left(strFileName, Len(strFileName) - 4), 29)

For Each ws In wbOrig.Sheets
ws.Copy After:=wb.Sheets(wb.Sheets.Count)
If wbOrig.Sheets.Count > 1 Then
wb.Sheets(wb.Sheets.Count).Name = strFileName & ws.Index
Else
wb.Sheets(wb.Sheets.Count).Name = strFileName
End If
Next

wbOrig.Close SaveChanges:=False

strFileName = Dir

Loop

Application.DisplayAlerts = False
wb.Sheets(1).Delete
Application.DisplayAlerts = True

Application.ScreenUpdating = True

Set wb = Nothing

End Sub

示例文档下载：

下面是合并多个Excel工作簿的另一种情形，也是《Excel VBA实战技巧精粹》中<技巧91：汇总多个工作簿的工作表>所介绍的方法，即合并汇总。
有四个工作簿，分别为：汇总工作簿.xls、一月.xls、二月.xls、三月.xls，其中一月.xls、二月.xls、三月.xls均只含有一张工作表且工作表中的数据均自单元格A1开始，现在要求将它们合并至“汇总工作簿.xls”中。
在“汇总工作簿.xls”中打开VBE，并输入下列代码：

Sub ConsolidateWorkbook()
Dim RangeArray() As String
Dim bk As Workbook
Dim sht As Worksheet
Dim WbCount As Integer
WbCount = Workbooks.Count
ReDim RangeArray(1 To WbCount - 1)
For Each bk In Workbooks '在所有工作簿中循环
If Not bk Is ThisWorkbook Then '非代码所在工作簿
Set sht = bk.Worksheets(1) '引用工作簿的第一个工作表
i = i + 1
RangeArray(i) = "'[" & bk.Name & "]" & sht.Name & "'!" & _
sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
End If
Next
Worksheets(1).Range("A1").Consolidate _
RangeArray, xlSum, True, True
End Sub

运行上述代码前，必须打开所有的工作簿。运行代码后，将自动汇总所有工作表中的值并将相应单元格的值求和。
示例文档下载：

下面是汇总多个工作簿的又一种情形，也是一名网友提出的问题：在同一文件夹中有多个工作簿，其中有一个用于汇总的工作簿，要求将除该汇总工作簿外的其它工作簿中的第一张工作表的数据汇总到该汇总工作簿中。代码如下：

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追问不用给这么多种 给种靠谱的就行……实际操作什么的都说一下嘛

追答Sub CombineWorkbooks()
Dim strFileName As String
Dim wb As Workbook
Dim ws As Object

'包含工作簿的文件夹,可根据实际修改
Const strFileDir As String = "D:\示例\数据记录\"

Application.ScreenUpdating = False

Set wb = Workbooks.Add(xlWorksheet)
strFileName = Dir(strFileDir & "*.xls*")

Do While strFileName vbNullString
Dim wbOrig As Workbook
Set wbOrig = Workbooks.Open(Filename:=strFileDir & strFileName, ReadOnly:=True)
strFileName = Left(Left(strFileName, Len(strFileName) - 4), 29)

For Each ws In wbOrig.Sheets
ws.Copy After:=wb.Sheets(wb.Sheets.Count)
If wbOrig.Sheets.Count > 1 Then
wb.Sheets(wb.Sheets.Count).Name = strFileName & ws.Index
Else
wb.Sheets(wb.Sheets.Count).Name = strFileName
End If
Next

wbOrig.Close SaveChanges:=False

strFileName = Dir

Loop

Application.DisplayAlerts = False
wb.Sheets(1).Delete
Application.DisplayAlerts = True

Application.ScreenUpdating = True

Set wb = Nothing

End Sub
用这个吧，Alt+F11打开VBA代码窗口，把这代码复制进去。“Const strFileDir As String = "D:\示例\数据记录\"”这句里的“D:\示例\数据记录\”改成你文件实际存储地址，或者你干脆建个这样的文件夹，把你要合并的文件全放到这个文件夹里去，然后运行刚才建好的VBA就可以了。

热心网友 时间：2022-03-03 06:00

选中多张sheet, 右键"移动或复制"到新工作簿.

热心网友 时间：2022-03-03 07:35

工作表移动，sheet1右键自己看。

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

- -那么多弄一块，你的电脑受的了吗。。。