[已解决]让excel 函数也能有变量

billyzhang0609

[k1] = Application.Evaluate("sum(A1:B1)")

假设:循环1to99行

sub test()
dim i&
      for i=1 to 99
           [k1] = Application.Evaluate("sum(这里面怎么表示？)")
      next
end sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-9-22 11:42

Sub test1()
    Dim i&
    For i = 1 To 99
        [k1] = Application.Evaluate("sum(A1:A" & i & ")")
    Next
End Sub


Sub test2()
      [k1] = Application.Sum([A1:A99])
End Sub


Sub test3()'推荐
    Dim i&, s&
    For i = 1 To 99
        s = s + i
    Next
    [k1] = s
End Sub

跳转到最佳答案楼层

爱疯

Sub test1()
    Dim i&
    For i = 1 To 99
        [k1] = Application.Evaluate("sum(A1:A" & i & ")")
    Next
End Sub


Sub test2()
      [k1] = Application.Sum([A1:A99])
End Sub


Sub test3()'推荐
    Dim i&, s&
    For i = 1 To 99
        s = s + i
    Next
    [k1] = s
End Sub

billyzhang0609

爱疯 发表于 2015-9-22 11:42
Sub test1()
    Dim i&
    For i = 1 To 99

我表达有错误，应该是
[k1] = Application.Evaluate("sum(A1:B1)")

然后将 里面的1改成变量i，应该这样子改：

[k1] = Application.Evaluate("counta(A" & i & ":J" & i & ")")