如何将5个excel工作表合到另 一个工作表中
发布网友
发布时间：2022-04-24 18:43
共2个回答
热心网友
时间：2022-05-03 09:10
假如将表1和表2都合并到新的工作簿中：
打开表1，选中第一个工作表，按住shift，选中最后一个工作表，右键选择“移动或复制工作表”，在工作簿的地方选择“新建工作簿”，勾选“建立副本”，确定；
打开表2，按照上边的步骤移动或复制工作表，在工作簿的地方选择刚才新建的那个工作簿(book1)，点选“（移至最后）”，勾选“建立副本”，确定。
完成之后重命名就行了。
热心网友
时间：2022-05-03 10:28
新建一个工作表，命名后保存到和与合并的N个文件同一个文件文件夹，按
alt
+
f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。
宏1：合并当前目录下所有工作簿的全部工作表到当前工作表
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("A65536").End(xlUp).Row
+
2,
1)
=
Left(MyName,
Len(MyName)
-
4)
For
G
=
1
To
Sheets.Count
Wb.Sheets(G).UsedRange.Copy
.Cells(.Range("A65536").End(xlUp).Row
+
1,
1)
Next
WbN
=
WbN
&
Chr(13)
&
Wb.Name
Wb.Close
False
End
With
End
If
MyName
=
Dir
Loop
Range("A1").Select
Application.ScreenUpdating
=
True
MsgBox
"共合并了"
&
Num
&
"个工作薄下的全部工作表。如下："
&
Chr(13)
&
WbN,
vbInformation,
"提示"
End
Sub
宏2：多个文件表合到一个文件表的多个SHEET中
Sub
CombineWorkbooks()
Dim
FilesToOpen,
ft
Dim
x
As
Integer
Application.ScreenUpdating
=
False
On
Error
GoTo
errhandler
FilesToOpen
=
Application.GetOpenFilename
_
(FileFilter:="Micrsofe
Excel文件(*.xls),
*.xls",
_
MultiSelect:=True,
Title:="要合并的文件")
If
TypeName(FilesToOpen)
=
"boolean"
Then
MsgBox
"没有选定文件"
'GoTo
errhandler
End
If
x
=
1
While
x
<=
UBound(FilesToOpen)
Set
wk
=
Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move
after:=ThisWorkbook.Sheets
_
(ThisWorkbook.Sheets.Count)
x
=
x
+
1
Wend
MsgBox
"合并成功完成！"
errhandler:
'MsgBox
Err.Description
'Resume
errhandler
End
Sub
