TA贡献1809条经验 获得超8个赞
1、示例代码:
Sub test1() Dim x As Long x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9")) Range("D2").Value = xEnd Sub
2、如下图:
3、以上代码的作用是:调用工作表函数SUMIF,求A2:A9范围内符合C2单元格条件,对应的B2:B9范围内数值之和,结果输出到D2单元格。
TA贡献2011条经验 获得超2个赞
sum函数里不能加双引号,双引号表示里面的是文本,不是变量。
我用的代码如下:
b1 = Cells(28, 23).Address
b2 = Cells(28, 23 + yue).Address
b3 = b1 &
":"
& b2
b = Application.WorksheetFunction.Sum(Range(b3))
举报