VBA中sum函数引用变量

发布时间：2019-07-29 16:08:14

我在VBA中编写函数SUM（J4：J100），其中100处想引用变量j，应该怎么写。谢谢。

补充：Sub hs()Dim i As IntegerDim j As Integerj = 1 For i = 4 To 2000 If Range("B" & i) = "" Then Exit For End If If Range("B" & i) - DateSerial(2019, 8, 31) > 0 Then Exit For Else j = j + 1 End If Next Selection.Formula = "= sum()" Range("O16").Select End Sub这是我现在写的，其中SUM（）是现在要解决的。