好吧问答库 > 大神,多个excel的sheet页合并成一个excel（只有一个sheet页）应该怎么弄？

大神,多个excel的sheet页合并成一个excel（只有一个sheet页）应该怎么弄？

2025年03月18日 00:07

有1个网友回答

网友（1）：

用宏
Sub
合并()
Application.ScreenUpdating
=
False
Dim
m
As
Integer
Dim
n
As
Integer
Dim
o
As
Integer
For
m
=
2
To
3

'此处的2、3需要根据你实际的工作表数填写

n
=
Sheets(m).[a65536].End(xlUp).Row

o
=
Sheets(1).[a65536].End(xlUp).Row

Sheets(m).Select

Range("a1",
"z"
&
n).Select

Range("a"
&
n).Activate

Selection.Copy

Sheets(1).Select

Range("a"
&
o
+
1).Select

ActiveSheet.Paste
Next
Application.ScreenUpdating
=
True
yn
=
MsgBox("所选工作表已合并完成！"
,
vbOKOnly,
"工作表合并")
End
Sub
这个代码有缺陷，小心使用