Your Grandmother: 一、利用单元格公式返回值Subt5()Range("d16")=Evaluate("=SUMIF(A2:A6,""b"",B2:B6)")'宏表函数直接把公式表达式转化为数值Range("d9")=Evaluate("=SUM(B2:B6*C2:C6)")EndSub二、借用工作表函数Subt6()Range("d8")=Application.WorksheeFunction.CountIf(Range("A1:A10"),"B")EndSub'三、利用VBA函数Subt7()....