作者：乔山办公网日期：
返回目录：excel表格制作
把 多个工作表 合并到到一张百表， 最快捷的方法是用宏处理：
例如 将多个表合并到总计表：
总计 表只留度一个标题
右键点 汇总问 工作表 标签 ，查看代码， 把如下代码复制进去， F5运行:
Sub 工作表合并答()For Each st In WorksheetsIf st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)NextEnd Sub
就会把多个表合并 到 总表，
如下例： 在Sheet 总计 中 运行 如上代版码，就会将所有 月份 分表 汇总 进来，方便后续权处理，而 不需要一次次粘贴处理
Sub zz()
Application.ScreenUpdating = False
Sheet2.UsedRange.Offset(1).Clear
For i = 2 To [a65536].End(3).Row
With Sheet2
k = Cells(i, 1) * 20 - 18
If .Cells(k, 1) = "" Then
Cells(i, 1).Resize(1, 13).Copy .Cells(k, 1)
Else
lr = .Cells(k, 1).End(xlDown).Row + 1
If lr = 65537 Then lr = k + 1
Cells(i, 1).Resize(1, 13).Copy .Cells(lr, 1)
End If
End With
Next
Application.ScreenUpdating = True
End Sub
第一抄格 D1 中输入 “书包”
先选中第一格 D1, ctrl + c 复制这格
拉动袭右边边条，直到显示 3521行
按住 shift键 ，同时点选这一格 D3521
这时会选中zhidao D1:D3521 这个区域
CTRL + V 粘贴