Question

vba中函数使用数组公式

aaa = Application.WorksheetFunction.Round(Application.WorksheetFunction.Sum(--Range("E4:E10")), 2) 提示类型不匹配。但在公式中是可以的。请大虾帮忙
Application.WorksheetFunction.Sum(Range("A1:A10")) 这样可以运行
但Application.WorksheetFunction.Sum(--Range("A1:A10")) 不行

Answer 1

Application.WorksheetFunction.Sum([--A1:A10]) 要这样写。range是直接引用单元格。共公式里的A1：A10是有区别的。
用[ ]符号括起来就支持数组用法了。比如下面这样
Application.WorksheetFunction.Sum([a1:a10*b1:b10])

Answer 2

你A1：A10是 文本格式的 数字？
Sub AA()
Dim I%
For I = 1 To 10
Cells(I, 1) = --Cells(I, 1)
Next
bbb = Application.WorksheetFunction.Sum(Range("A1:A10"))
aaa = Application.WorksheetFunction.Round(bbb, 0)
MsgBox aaa
End Sub