[已解决]用VBA计算，谢谢

15968725770

用VBA计算，谢谢

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-11-16 07:34

請測試看看,謝謝

Sub test()
Dim Arr, i&
Arr = [a2].CurrentRegion
For i = 2 To UBound(Arr)
    Arr(i, 6) = Arr(i, 4) - Arr(i, 5)
    Arr(i, 7) = Int((Arr(i, 1) - Arr(i, 2)) * Arr(i, 2) * 0.02491 * Arr(i, 3) * Arr(i, 6))
Next
[a2].Resize(UBound(Arr), 7) = Arr
End Sub

跳转到最佳答案楼层

sam-wang

請測試看看,謝謝

Sub test()
Dim Arr, i&
Arr = [a2].CurrentRegion
For i = 2 To UBound(Arr)
    Arr(i, 6) = Arr(i, 4) - Arr(i, 5)
    Arr(i, 7) = Int((Arr(i, 1) - Arr(i, 2)) * Arr(i, 2) * 0.02491 * Arr(i, 3) * Arr(i, 6))
Next
[a2].Resize(UBound(Arr), 7) = Arr
End Sub