第一把这30个表放在一个新建立 的文件夹里,第二在这个新建立 的文件夹里再新建一个excel表格文件 打开这个文件在左下角sheet1标签处右键
查看代码
然后把下面代码 复制进去
然后点运行运行子过程等几不一会时间就可以了如果其中有一个有合并过的单元格,这个程序也会中断的,还有确每个表的A列得有内容Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication....