方法一:下载安装“excel必备工具箱8.20版”(非常小1.1M,但很实用的工具)
http://blog.sina.com.cn/ahzll。用里面的“汇总”——“表格合并”即可,非常方便(我试过)。
方法二:网上搜索得到。
右键点击新工作表标签,选择“查看代码”,将下面的代码粘贴到打开的VBE窗口中:
Sub Shcopy()
Dim nRow&, R1%, Rs%, Ls%
R1 = 2 '每页从第2行开始复制(可修改)
Application.EnableEvents = False
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
With Sheets(i)
Rs = .UsedRange.Rows.Count + 1 - R1
Ls = .UsedRange.Columns.Count
arr = .Range("a" & R1).Resize(Rs, Ls)
Range("a65536").End(xlUp).Offset(1).Resize(Rs, Ls) = arr
End With
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
修改“开始行号”。
将光标定位到代码中间任意位置,按F5运行它。
关闭VBE窗口。