如何快速把多个excel
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
合并成一个excel表有这么一种情况,就是我们有很多张excel,而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，其实利用excel表的宏计算就可以实现。具体步骤如下：1、需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如下图：2、用microsoftexcel打开新建的excel表,并右键单击sheet1,找到“查看代码”，单击进去。进去之后就看到了宏计算界面.如下图：3、然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行"下的“运行子过程/用户窗体”，代码如下：Sub合并当前目录下所有工作簿的全部工作表（）DimMyPath,MyName，AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath＆"\"＆"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName〈>"”IfMyName〈〉AWbNameThenSetWb=Workbooks。Open（MyPath&”\"&MyName)Num=Num+1WithWorkbooks（1）.ActiveSheet.Cells(.Range（”B65536").End(xlUp)。Row+2,1)=Left（MyName,Len(MyName）-4)ForG=1ToSheets。CountWb.Sheets(G).UsedRange。Copy.Cells(.Range（"B65536").End(xlUp)。Row+1,1）NextWbN=WbN&Chr(13）&Wb。NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange（”B1").SelectApplication.ScreenUpdating=TrueMsgBox”共合并了"＆Num&"个工作薄下的全部工作表。如下："&Chr（13)&WbN,vbInformation，"提示”EndSub如下图：4、运行之后，等待10秒针左右,等运行完毕，就是合并完成之后，会有提示,点确定就可以了。查看合并后的数据，就是同一个文件夹里面3个excel表数据合并后的结果.如下图:
浙公网安备 33021202002483