[已解决]帮忙看看代码，为什么不是第一列开始填充

喜气洋洋

1. Sub compare()
   
2. Dim crr()
   
3. arr = Sheets("调整前").UsedRange
   
4. Brr = Sheets("调整后").UsedRange
   
5. ReDim crr(1 To UBound(arr), 150)
   
6. Set d = CreateObject("scripting.dictionary")
   
7. For i = 3 To UBound(arr)
   
8. crr(i, 1) = arr(i, 6)
   
9. crr(i, 2) = arr(i, 1)
   
10. crr(i, 3) = arr(i, 7)
    
11. crr(i, 4) = arr(i, 4)
    
12. Next
    
13. MsgBox crr(9, 1)
    
14. Sheets("总表").Rows("1:" & Rows.Count).Delete
    
15. Sheets("总表").Range("a1").Resize(UBound(arr), 150) = crr
    
16. End Sub

复制代码

这个代码，到 MsgBox crr(9, 1) 是有值的，但是 填充到sheets("总表")的时候，效果是



为什么不是从第一列开始填充呢，求大师指点。。。

最佳答案

月排行榜 / 总排行榜

maysh2009

2012-11-6 11:55

1. Sub compare()
   
2. Dim crr()
   
3. arr = Sheets("调整前").UsedRange
   
4. Brr = Sheets("调整后").UsedRange
   
5. ReDim crr(1 To UBound(arr), 1 To 150)
   
6. Set d = CreateObject("scripting.dictionary")
   
7. For i = 3 To UBound(arr)
   
8. crr(i, 1) = arr(i, 6)
   
9. crr(i, 2) = arr(i, 1)
   
10. crr(i, 3) = arr(i, 7)
    
11. crr(i, 4) = arr(i, 4)
    
12. Next
    
13. MsgBox crr(9, 1)
    
14. Sheets("总表").Rows("1:" & Rows.Count).Delete
    
15. Sheets("总表").Range("a1").Resize(UBound(arr), 150) = crr
    
16. End Sub

复制代码

跳转到最佳答案楼层

maysh2009

1. Sub compare()
   
2. Dim crr()
   
3. arr = Sheets("调整前").UsedRange
   
4. Brr = Sheets("调整后").UsedRange
   
5. ReDim crr(1 To UBound(arr), 1 To 150)
   
6. Set d = CreateObject("scripting.dictionary")
   
7. For i = 3 To UBound(arr)
   
8. crr(i, 1) = arr(i, 6)
   
9. crr(i, 2) = arr(i, 1)
   
10. crr(i, 3) = arr(i, 7)
    
11. crr(i, 4) = arr(i, 4)
    
12. Next
    
13. MsgBox crr(9, 1)
    
14. Sheets("总表").Rows("1:" & Rows.Count).Delete
    
15. Sheets("总表").Range("a1").Resize(UBound(arr), 150) = crr
    
16. End Sub

复制代码