[已解决]EXCEL高手用VBA数组计算D列结果

vbyou127

EXCEL高手用VBA数组计算D列结果

最佳答案

月排行榜 / 总排行榜

qh8600

2016-3-25 22:10

1. Sub demo()
   
2.     Dim arr, i As Long, x As Long
   
3.     x = Cells(Rows.Count, 1).End(3).Row
   
4.     If x < 2 Then Exit Sub
   
5.     arr = Range("a1:d" & x)
   
6.     For i = 2 To UBound(arr)
   
7.         arr(i, 4) = arr(i, 2) * arr(i, 3)
   
8.     Next
   
9.     Range("a1").Resize(UBound(arr), 4) = arr
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim arr, i As Long, x As Long
   
3.     x = Cells(Rows.Count, 1).End(3).Row
   
4.     If x < 2 Then Exit Sub
   
5.     arr = Range("a1:d" & x)
   
6.     For i = 2 To UBound(arr)
   
7.         arr(i, 4) = arr(i, 2) * arr(i, 3)
   
8.     Next
   
9.     Range("a1").Resize(UBound(arr), 4) = arr
   
10. End Sub
    

复制代码

vbyou127

qh8600 发表于 2016-3-25 22:10

End(3).Row.............那个3代表什么

qh8600

vbyou127 发表于 2016-3-25 22:16
End(3).Row.............那个3代表什么

xlup,向上的意思，就是从最后以后向上搜索非空单元格，找到了，就是你数据的最下面的单元格的行号，常说的最后非空单元格的行号

vbyou127

qh8600 发表于 2016-3-25 22:20
xlup,向上的意思，就是从最后以后向上搜索非空单元格，找到了，就是你数据的最下面的单元格的行号，常说的 ...

与xlup一样。那么数字1,2,3,4与什么对应

qh8600

vbyou127 发表于 2016-3-25 22:30
与xlup一样。那么数字1,2,3,4与什么对应

你试试就知道了，左右上下