vba中应用函数sum

更新时间2018-10-02 10:37:11

如下
Sub 函数()
Dim rn%
For rn = 1 To Range("a1", [a1].End(xlDown)).Rows.Count
Cells(rn, "e") = Application.Sum([B rn :D rn])
MsgBox Application.Sum([b2:d1])
Next rn
End Sub
其中application.sum([b rn:d rn])中字母b与变量rn怎么连接？我连了很多次都是错的。
我测了一下sum([b2:d1])。把数字换成变量，按我的理解应该[b" & rn & ":d" & rn &"]。但是始终不对。我想知道这到底是哪里错了。

Sub 函数()
Dim rn%
For rn = 1 To Range("a1").End(xlDown).Rows.Count
Cells(rn, "e") = Application.Sum([B rn :D rn])
MsgBox Application.Sum([b2:d1])
Next rn
End Sub