可否举例说明?
追答Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
With Worksheets("ReportTop")
Set rg1 = .Range("A1:B2")
Set rg2 = .Range("C3:D4")
Set myMultiAreaRange = Union(rg1, rg2)
.Range("I10") = Application.WorksheetFunction.CountIf(myMultiAreaRange, "1")
但CountIf好象不支持多个区域,你看可用多个CountIf 加运算实现你的要求
CountIf(rg1,"1")+CountIf(rg2,"1")