EXCEL:一个工作薄中多个工作表合并代码

来源:百度文库 编辑:神马文学网 时间:2024/04/29 13:36:37
软件学习 2009-02-12 10:24:25 阅读223 评论5 字号:大中小
在EXCEL中打开宏,将下列代码进行粘贴并保存。然后返回你需要合并的工作表中,运行此宏,看看效果吧。
Sub 合并()
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 3               '此处的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
End Sub