Sub sumif_vba()Dim rg, dyg As Range '计算区域,单元格Dim he '和Set rg = [a1:b4]For Each dyg In rg If dyg < 100 Then he = he + dygNext[I8] = heEnd Subif语句第一句是求和条件,if语句体可以写求和表达式,算得结果赋给某个单元格