日志
一个工作薄中存在若干工作表，整合到一个工作表中的VBA代码
热度 4 ||
如果一个工作薄中存在若干工作表，且工作表的格式一样的话，如果想快速将这些工作表整合到一个工作表中，则可以使用VBA代码。
1. 打开需要和并工作表的excel。
2. 按alt+F11.
3. 插入一个模块。
4. 将下面的东东复制进去。
5. 点击运行。
6. 搞定
==========复制下面的代码==================
Sub hz()
Set NewSheet = Sheets.Add(Type:=xlWorksheet) '生成一个新表
Sheets(NewSheet.Index).Move before:=Sheets(1) '将此表移动到最前面
For i = 2 To Worksheets.Count
Sheets(i).UsedRange.Copy NewSheet.Cells([a65536].End(xlUp).Row + 2, 1) '将其他表中的已用区域复制到新表中
Next i
MsgBox "合并完成"
End Sub
==========复制上面的代码==================
