Sub Test()
Dim myRange As Range
Set myRange = Application.InputBox("选定区域", Default:="A1", Type:=8)
Dim mySumif As Single
mySumif = Application.WorksheetFunction.SumIf(myRange, "=1", myRange)
MsgBox mySumif
End Sub
有很多骂人的话
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024