TA貢獻(xiàn)1809條經(jīng)驗(yàn) 獲得超8個(gè)贊
1、示例代碼：
Sub test1()
Dim x As Long
x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9"))
Range("D2").Value = x
End Sub
2、如下圖：
3、以上代碼的作用是：調(diào)用工作表函數(shù)SUMIF，求A2:A9范圍內(nèi)符合C2單元格條件，對應(yīng)的B2:B9范圍內(nèi)數(shù)值之和，結(jié)果輸出到D2單元格。
TA貢獻(xiàn)2011條經(jīng)驗(yàn) 獲得超2個(gè)贊
sum函數(shù)里不能加雙引號，雙引號表示里面的是文本，不是變量。
我用的代碼如下：
b1 = Cells(28, 23).Addressb2 = Cells(28, 23 + yue).Addressb3 = b1 & ":" & b2b = Application.WorksheetFunction.Sum(Range(b3)) |
舉報(bào)