[已解决]求大神帮忙改一个宏代码！！！

孔老弟

想把所有的表集合到汇总表，但是代码运行起来只得表头，请大神帮帮忙修改并备注各个语句！！

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-12 16:44

生存认定.rar (16.74 KB, 下载次数: 3)

2013-9-12 16:46 上传

点击文件名下载附件 用这个代码，已经测试成功。

1. Sub 汇总()
   
2.     Dim sh As Worksheet
   
3.     [a1].CurrentRegion.Offset(1).ClearContents
   
4.     Sheets(2).Range("a1:f2").Copy Range("a1")  '复制第二个工作表的表头。
   
5.     For Each sh In Sheets                      '从每一个工作表中循环，获取数据。
   
6.         With sh
   
7.             If .Name <> ActiveSheet.Name Then   '判断除开要汇总的工作表
   
8.                 .Range(sh.Cells(3, 1), sh.Cells(sh.Range("e65536").End(3). _
   
9.                 Row, 6)).Copy [a65536].End(3).Offset(1)    '把第二个工作表到最后一个工作表中的第三行到最后一行复制到第一个工作表的最后一行。
   
10.             End If
    
11.         End With
    
12.     Next
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

wayy

附件有点问题，打不开

冥王

打不开附件

孔老弟

不好意思，已重新上传附件！！

上清宫主

Sub 汇总()
    Dim sh As Worksheet
    [a1].CurrentRegion.Offset(2).Clear 'Contents
    For Each sh In Sheets
        With sh
            If .Name <> ActiveSheet.Name Then
                .Range("a3").Resize(.[b65536].End(3).Row - 2, 6).Copy [a65536].End(3).Offset(1)
            End If
        End With
    Next
End Sub

孔老弟

上清宫主 发表于 2013-9-12 16:14
Sub 汇总()
    Dim sh As Worksheet
    [a1].CurrentRegion.Offset(2).Clear 'Contents

太好了，能不能帮忙备注一下各语句

上清宫主

都是你原有代码呀，仅略略调动一下而已

yyyydddd8888

生存认定.rar (16.74 KB, 下载次数: 3)

2013-9-12 16:46 上传

点击文件名下载附件 用这个代码，已经测试成功。

1. Sub 汇总()
   
2.     Dim sh As Worksheet
   
3.     [a1].CurrentRegion.Offset(1).ClearContents
   
4.     Sheets(2).Range("a1:f2").Copy Range("a1")  '复制第二个工作表的表头。
   
5.     For Each sh In Sheets                      '从每一个工作表中循环，获取数据。
   
6.         With sh
   
7.             If .Name <> ActiveSheet.Name Then   '判断除开要汇总的工作表
   
8.                 .Range(sh.Cells(3, 1), sh.Cells(sh.Range("e65536").End(3). _
   
9.                 Row, 6)).Copy [a65536].End(3).Offset(1)    '把第二个工作表到最后一个工作表中的第三行到最后一行复制到第一个工作表的最后一行。
   
10.             End If
    
11.         End With
    
12.     Next
    
13. End Sub
    

复制代码

孔老弟

上清宫主 发表于 2013-9-12 16:44
都是你原有代码呀，仅略略调动一下而已

这个代码是偷来的，我根本不懂得什么意思，我对vba都不懂，现在想学学，希望你能备注一下

孔老弟

yyyydddd8888 发表于 2013-9-12 16:44
用这个代码，已经测试成功。

谢谢你，好老师！