[已解决]把多个工作表里的数据复制到一个工作表里，有错误，求助

ddyy004

1. Sub 汇总()
   
2.     Dim shtO As Worksheet
   
3.     Dim shtD As Worksheet
   
4.     Dim HZ&, GZB&, ShtCount
   
5. 
   
6.     Set shtD = Sheets("汇总")
   
7.     ShtCount = Worksheets.Count
   
8.     For i = 2 To ShtCount
   
9.         Set shtO = Sheets(i)
   
10.         GZB = shtO.Range("v65536").End(xlUp).Row - 2
    
11.         HZ = shtD.Range("B65536").End(xlUp).Row + 2
    
12.         shtO.Range("U8:V" & GZB).Copy shtD.Range("B" & HZ)
    
13.     Next i
    
14. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

today0427

2017-1-3 11:56

加了一句话If Sheets(i).Name <> "汇总" Then

1. Sub 汇总()
   
2.     Dim shtO As Worksheet
   
3.     Dim shtD As Worksheet
   
4.     Dim HZ&, GZB&, ShtCount
   
5. 
   
6.     Set shtD = Sheets("汇总")
   
7.     ShtCount = Worksheets.Count
   
8.     For i = 2 To ShtCount
   
9.         If Sheets(i).Name <> "汇总" Then Set shtO = Sheets(i)
   
10.         GZB = shtO.Range("v65536").End(xlUp).Row - 2
    
11.         HZ = shtD.Range("B65536").End(xlUp).Row + 2
    
12.         shtO.Range("U8:V" & GZB).Copy shtD.Range("B" & HZ)
    
13.     Next i
    
14. End Sub

复制代码

跳转到最佳答案楼层

today0427

加了一句话If Sheets(i).Name <> "汇总" Then

1. Sub 汇总()
   
2.     Dim shtO As Worksheet
   
3.     Dim shtD As Worksheet
   
4.     Dim HZ&, GZB&, ShtCount
   
5. 
   
6.     Set shtD = Sheets("汇总")
   
7.     ShtCount = Worksheets.Count
   
8.     For i = 2 To ShtCount
   
9.         If Sheets(i).Name <> "汇总" Then Set shtO = Sheets(i)
   
10.         GZB = shtO.Range("v65536").End(xlUp).Row - 2
    
11.         HZ = shtD.Range("B65536").End(xlUp).Row + 2
    
12.         shtO.Range("U8:V" & GZB).Copy shtD.Range("B" & HZ)
    
13.     Next i
    
14. End Sub

复制代码

today0427

咳咳咳……每次答对一道题给两个最佳，心里都很羞愧怎么办

ddyy004

today0427 发表于 2017-1-3 11:56
加了一句话If Sheets(i).Name  "汇总" Then

最后一个表格会出现统计两次。

today0427

好的下午看看

ddyy004

1. For i = 2 To ShtCount -1

复制代码