,然后打开在第一张工作表名字上点右键选择“查看代码”:Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,=FalseMyPath==Dir(MyPath&"\"&"*.xls")AWbName==0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=(G).(.Range("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&=DirLoopRange("B1").=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"。完成!
合并多个相同的电子表格数据 来自淘豆网www.taodocs.com转载请标明出处.