[已解决]求高手帮忙注释这几行代码的意思

梦想有多远

Sub TEST()
Dim arr
arr =  Sheets("用油表数").Range("e2:e13")
i = Sheets("用量汇总表").Cells(2,  Columns.Count).End(xlToLeft).Column
Sheets("用量汇总表").Cells(2,  i + 1).Resize(12) = arr
MsgBox  "谢谢合作，辛苦了！"
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2014-2-20 17:41

Sub TEST()      
Dim arr            
arr =  Sheets("用油表数").Range("e2:e13")  将数据赋值给变量（数组）  
i = Sheets("用量汇总表").Cells(2,  Columns.Count).End(xlToLeft).Column  
   Sheets("用量汇总表")第2行中有数据的最后一列列号赋值给变量i
Sheets("用量汇总表").Cells(2,  i + 1).Resize(12) = arr   
   将数组填入Sheets("用量汇总表")第2行最后一列的右一单元起12行内
MsgBox  "谢谢合作，辛苦了！"      
End Sub

跳转到最佳答案楼层

zjdh

Sub TEST()      
Dim arr            
arr =  Sheets("用油表数").Range("e2:e13")  将数据赋值给变量（数组）  
i = Sheets("用量汇总表").Cells(2,  Columns.Count).End(xlToLeft).Column  
   Sheets("用量汇总表")第2行中有数据的最后一列列号赋值给变量i
Sheets("用量汇总表").Cells(2,  i + 1).Resize(12) = arr   
   将数组填入Sheets("用量汇总表")第2行最后一列的右一单元起12行内
MsgBox  "谢谢合作，辛苦了！"      
End Sub