可以用公式解决。
先将选项中“自动重算”选中,“最多迭代次数”设为1次。
然后在M26输入公式:
=IF($C$25=$L26,D$23,M26)
将公式向右向下复制。
再通过按钮依次改变C25的值即可。
Sub 按钮6_单击复制并选择性粘贴()
'
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub