如何将多个工作簿合并为一个新工作簿，并把原工作簿名称带入新工作表并单独列示一列

3190496160

你连附件都懒得上传，论坛是做义务的，谁会有多少闲心陪你玩儿呢

jane2942

3190496160 发表于 2022-3-17 14:39
你连附件都懒得上传，论坛是做义务的，谁会有多少闲心陪你玩儿呢

老师您好，实在抱歉，我没注意这个问题，现在已经把附件上传了，麻烦您百忙中帮我看一下，拜谢

3190496160

下载看了，数据源文件乱糟糟的，不知道你想汇总的是哪些数据，
如果仅仅是要汇总数据源文件中每个工作表内A列有数据的区域？？？

jane2942

老师您好，我是想要合并数据源下面所有工作簿内的所有工作表内的所有的数据在一个新的工作表，然后再在新工作表上做数据汇总，目前数据源格式是有点乱，我也发现就是A列没有数据的行基本没有汇总进去，这个问题我可以通过规范表格来避免，修改以后好像还是有错位的情况，附件是我把所有A列数据补充完整后的数据包，麻烦老师帮我看一下，谢谢

jane2942

3190496160 发表于 2022-3-17 15:02
下载看了，数据源文件乱糟糟的，不知道你想汇总的是哪些数据，
如果仅仅是要汇总数据源文件中每个工作表内 ...

老师，您好，请教您一下，如果我只需要日期那列不为空的所有数据合并过来，是不是会简单一点呢

3190496160

jane2942 发表于 2022-3-18 15:56
老师，您好，请教您一下，如果我只需要日期那列不为空的所有数据合并过来，是不是会简单一点呢

最不想见到的就是  如果这样，如果那样，把你真实的意图表述出来

jane2942

3190496160 发表于 2022-3-18 16:00
最不想见到的就是  如果这样，如果那样，把你真实的意图表述出来

好的，老师，我要把文件夹下面所有工作簿合并在一个新的工作表里面，并且要把源工作簿名称列示在新工作表里面A列，因为工作簿名称是每个客户的名称，如果不带入的话汇总出来的数据没有办法显示具体客户，需要合并过来的是工作表里面日期那列有内容的行就可以，日期那列没有内容的行不用合并过来也可以的，就是这样的情况，老师辛苦了，谢谢

绿色心情小天使

3190496160 发表于 2022-3-17 09:41
wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 2)
修改为：
wb.Sheets(G). ...

怎样把下面的标题去掉，如下图

绿色心情小天使

3190496160 发表于 2022-3-16 14:26
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim wb As Workbook, WbN As ...

怎样把需要合并的第2、3...工作薄合并成的标题去掉
  有了你这代码，对我工作提供了极大方便

3190496160

绿色心情小天使 发表于 2023-7-14 10:45
怎样把下面的标题去掉，如下图

关键要知道你的标题有几行