fieldset{padding:10px;}
向VBA大神求助，多张表汇总！简单地说我有5张excel表每张表字段都相同，例如：编号，名称，规格。现在我想把这五张表内容汇总成一张表，第一张表下面接第二张表的数据，之后是第三张，一次类推。每次对五张表中的一张增加或者修改，合成的那张表就会自动从新生成。耽误大侠几分钟时间，帮我写个VBA宏，带上注释，给个框架或者关键函数，给思路都行。
vba excel 合成表 ——解决方案——————————————————–有两种方法一是直接用SQL查询的汇总二是用VBA打开文件，复制粘贴到一张表后用透视表其实你还不如把5个表都放到一个工作簿里得了，然后用数据透视表的合并计算——解决方案——————————————————–只是简单的把五张表的内容叠加式的复制到一张表中吗？还是需要进行汇总呢？如果只是进行叠加式的复制的话我倒是有一个现成的VBA。这个是针对文件进行操作的，只要指定了文件名以及相应的表就可以进行合并。OptionExplicitSubadddate()’该VBA是打开相应的数据并将相应的表头COPY到相应的文件名称后面。DimFilenameAsStringDimrownumAsIntegerDimtotalrowAsIntegerDimbuildtypeAsStringDimtotalclumDimj,iDimneedrowDimbtsprice,bscprice,sheetcount,sheetname’Dimbiaoti,shuliangAsRangeApplication.DisplayAlerts=FalseApplication.ScreenUpdating=Falsetotalrow=0buildtype=””btsprice=0bscprice=0’Setbiaoti=Nothing’Setshuliang=NothingWindows(“test.xlsm”).ActivateSheets(1).Activaterownum=Sheet1.Range(“a1”).End(xlDown).RowFori=1TorownumFilename=Cells(i,1).ValueWorkbooks.OpenFilenamesheetcount=Sheets.CountForj=1Tosheetcountsheetname=Trim(Sheets(j).Name)IfTrim(Sheets(j).Name)=”BTSINFO”Then’btsprice=1Sheets(“BTSINFO”).ActivateCells.EntireColumn.Hidden=Falsetotalrow=ActiveSheet.Range(“e65535”).End(xlUp).Rowtotalclum=ActiveSheet.Range(“fc1”).End(xlToLeft).Column’Debug.Printtotalrow,totalclum’ActiveSheet.Range(Cells(1,5).Address,Cells(1,totalclum).Address)’shuliang=ActiveSheet.Range(Cells(totalrow,5).Address,Cells(totalrow,totalclum).Address)’Application.Union(Range(Cells(1,3).Address,Cells(1,totalclum).Address),Range(Cells(totalrow,3).Address,Cells(totalrow,totalclum).Address)).Select穿越茫茫人海，寻找属于我们的那一份宁静。