如何用ExcelVBA把一个文件夹下的工作簿的指定的sheet页的指定的区域汇总到指定的表中

cf4095690

现在文件夹下有这么多表，02开头的表是要复制sheet2的A2到GN（N为最后一条有数据的行值）要求把这些02开头的表的指定区域（A2：Gn（n为最后一条有数据的行值））复制到“zong”这张表的第五个sheet，且从A2行开始显示数据，因为A1行要有标题，求助各位大神，不知道看懂我的意思了吗，谢谢了，很急！

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
遍历文件的资料，先参考下

liulang0808

楼主是要将02开头的工作薄的第二张表内A2：Gn的区域进行汇总吧？

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ActiveSheet
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     For Each f In fso.getfolder(ThisWorkbook.Path).Files
   
6.         If InStr(f.Name, "zong") = 0 Then
   
7.             With Workbooks.Open(f)
   
8.                 Application.Intersect(.Sheets(2).UsedRange, .Sheets(2).Columns("a:g")).Offset(1).Copy sh.Cells(Rows.Count, 1).End(3).Offset(1)
   
9.                 .Close False
   
10.             End With
    
11.         End If
    
12.     Next f
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

cf4095690

liulang0808 发表于 2017-11-21 10:17
楼主是要将02开头的工作薄的第二张表内A2：Gn的区域进行汇总吧？

对的，那个Gn的那个“n”是有数据的最后一行，而且汇总的表不是新建的，是已经存在的，要把汇总的东西放到那个已经存在的表的第五张表里

liulang0808

根据自己的理解做的，供参考

cf4095690

liulang0808 发表于 2017-11-21 10:25
根据自己的理解做的，供参考

解决了我的问题，真的谢谢你，可以给我加上注释理解一下吗？可以每次执行之前都进行数据的清空操作吗？

liulang0808

cf4095690 发表于 2017-11-21 10:45
解决了我的问题，真的谢谢你，可以给我加上注释理解一下吗？可以每次执行之前都进行数据的清空操作吗？

之前的链接里有资料
请空的话，就是针对sh对应的表格内容清空即可

cf4095690

liulang0808 发表于 2017-11-21 11:01
之前的链接里有资料
请空的话，就是针对sh对应的表格内容清空即可

谢谢你，我去看一下资料

cf4095690

liulang0808 发表于 2017-11-21 11:01
之前的链接里有资料
请空的话，就是针对sh对应的表格内容清空即可

你好，请教一下，怎么只copy值和格式，不copy公式，或者只copy值，因为之前的代码每次都会弹出一个msgbox，需要一直点回车，我的表很多，这样处理起来很麻烦