再增加一个事件代码即可，目的是有公式计算时运行代码，将所以D列有公式引用的都运行一次你的代码，增加的代码如下（详见附件）：
Private Sub Worksheet_Calculate()
Call Worksheet_Change(Columns("D").SpecialCells(xlCellTypeFormulas))
End Sub
你再写一段函数改变的代码：
Private Sub Worksheet_Calculate()
……
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024