将多个工作表合并到一张表格上的宏命令

  • 格式:doc
  • 大小:19.50 KB
  • 文档页数:1

下载文档原格式

  / 1
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

将多个工作表合并到一张表格上的宏命令。要求将表单名称改为“汇总”即可。

Sub 合并工作表()

For i = 2 To Sheets.Count

Sheets(i).UsedRange.Copy Destination:=Sheets("汇总").Range("A" & Sheets("汇总

需要下载后才可以看

").UsedRange.Rows.Count + 1)

Next

End Sub

将多个工作表合并到一张表格上的宏命令。要求将表单名称改为“汇总”即可。