将多个工作表合并到一张表格上的宏命令
- 格式:doc
- 大小:19.50 KB
- 文档页数:1
将多个工作表合并到一张表格上的宏命令。要求将表单名称改为“汇总”即可。
Sub 合并工作表()
For i = 2 To Sheets.Count
Sheets(i).UsedRange.Copy Destination:=Sheets("汇总").Range("A" & Sheets("汇总
需要下载后才可以看
").UsedRange.Rows.Count + 1)
Next
End Sub
将多个工作表合并到一张表格上的宏命令。要求将表单名称改为“汇总”即可。