合并当前目录下所有工作簿的第一个工作表

阳都山泉 · 发表于 2019-10-9 19:39

求助，怎样用VBA合并当前目录下所有工作簿的第一个工作表，从网上找了一段代码，合并后不是想要的效果，有两段代码看不懂，请教各位老师，怎样修改代码才能合并出想要的效果呢，麻烦各位老师了。
With Workbooks(1).ActiveSheet  '只合并该工作簿中的第一张表
      .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
         For G = 1 To Sheets.Count
         wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
         Next
         WbN = WbN & Chr(13) & wb.Name
      wb.Close False '将刚才打开的表关闭
End With

以下两段代码看不懂：
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

合并当前目录下所有工作簿的第一个工作表.zip (37.29 KB, 下载次数: 51)

合并后的最终效果.zip (6.7 KB, 下载次数: 33)

阳都山泉 · 发表于 2019-10-9 19:46

能解决吗？

liulang0808 · 发表于 2019-10-9 20:00

看看附件内容是否满足要求吧

阳都山泉 · 发表于 2019-10-10 18:55

liulang0808 发表于 2019-10-9 20:00
看看附件内容是否满足要求吧

非常感谢老师，问题解决了

阳都山泉 · 发表于 2019-10-10 18:56

阳都山泉发表于 2019-10-10 18:55
非常感谢老师，问题解决了

非常感谢老师指导，问题解决了

Apple666Liang · 发表于 2022-7-26 11:21

能分享一下代码吗？下载的附件的VBA被破坏了。谢谢

weilstc · 发表于 2022-9-25 17:12

liulang0808 发表于 2019-10-9 20:00
看看附件内容是否满足要求吧

你好，要想最后一行一起合并，怎样修改代码。如果想从第二行起开始合并，又该怎么修改。可否在加个说明。

weilstc · 发表于 2022-9-25 17:13

Apple666Liang 发表于 2022-7-26 11:21
能分享一下代码吗？下载的附件的VBA被破坏了。谢谢

没坏，可以使用的

		自动登录	找回密码
密码			免费注册

[求助] 合并当前目录下所有工作簿的第一个工作表

最新热点 /1