将多个sheet文件按顺序排列汇总到一个表格

最新推荐文章于 2022-09-16 22:29:01 发布

紫星幻月

最新推荐文章于 2022-09-16 22:29:01 发布

阅读量1.1k

点赞数

分类专栏：学习资料文章标签： excel

本文链接：https://blog.csdn.net/zixinghuanyue/article/details/114984337

版权

学习资料专栏收录该内容

9 篇文章

订阅专栏

Sub 合并()
Dim Sh As Worksheet, Jg As Worksheet, r%
Set Jg = ThisWorkbook.Sheets.Add
Jg.Name = “合并结果”
For Each Sh In Worksheets
If Sh.Name <> Jg.Name Then
r = Jg.[a65536].End(xlUp).Row + 1
Sh.UsedRange.Copy Jg.Range(“a” & r)
End If
Next
End Sub