Sub 宏1()Cells(1, 1) = Application.SumProduct((Range("B4:B4") = Range("B4")) * (Range("D4:D4") = Range("D4")) * Range("E4:E4")) '运行到这出现的错误End Sub此程序可以运行，将计算结果写入到A1，但值无效。不知道你原表的值是如何的。
e4是数字吗
