用VBA实现从A表中取数，汇总到销量表

股网金来

已经写了一段代码可以实现这个功能，但是想到另一个思路，认为也是可行的，但是总是运行不成功，请高手指教，详见附件。
VBA中我已经写了一段代码，是运行成功的，我已经注释掉了，请高手给我看看没有注释掉的部分，问题出在哪。谢谢了！

jaryhanm

帮你顶一下

hehex

我觉得你的代码是正确的，但就是不知道为什么不行，好像和Cells 的用法有关。
思路也没问题，用你的思路回避了Cells 表示法，直接用Range 调试成功。

1. Sub zjsj()
   
2. ' Dim wb As Workbook, x As Integer, y As String
   
3. '
   
4. ' Set wb = Workbooks.Open(ThisWorkbook.Path & "\a.xls")
   
5. '    For x = 1 To wb.Sheets.Count
   
6. '
   
7. '       wb.Sheets(x).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets _
   
8.         '       ("第2题").Cells(Range("a65536").End(xlUp).Row, "a").Offset(1, 0)
   
9. '    Next
   
10. '       wb.Close
    
11. 
    
12.     Dim wb As Workbook, x As Integer, sh As Worksheet
    
13.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\a.xls")
    
14.     Set sh = ThisWorkbook.Sheets("第2题")
    
15.     For x = 1 To wb.Sheets.Count
    
16.                
    
17.         wb.Sheets(x).Range("a2: d" & wb.Sheets(x).Range("a1000").End(xlUp).Row) _
    
18.         .Copy sh.Range("a1000").End(xlUp).Offset(1, 0)
    
19. 
    
20.     Next
    
21.     wb.Close
    
22.     Set wb = Nothing
    
23.     Set sh = Nothing
    
24. End Sub

复制代码