在工具→选项 中启用迭代运算然后在B1中输入公式=a1+b1
在B1中用公式 =IF(A1=10,10,IF(A1=20,30,""))
Private Sub Worksheet_Change(ByVal Target As Range)If Target = [a1] Then [b1] = [a1] + [b1] End IfEnd Sub