求助，Excel2003问题，祝各位老师节日快乐！

求助，Excel2003问题，祝各位老师节日快乐！

还是用代码吧追问好，拜托老师您帮忙写一组代码吧！追答会启用代码么，懂一点不追问懂一点用在Excel2003上的，拜托老师了！追答Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column <> 3 Then Exit Sub
 Application.EnableEvents = False

 [C5:C29].FormulaR1C1 = "=IF(RC[-1]=0,R[-1]C-1,R[-1]C+1)"
 If [c3] > 88 Then [c5:c24].ClearContents
 If [c3] > 0 And [c3] < 20 Then [c5].Resize(20 - [c3]).ClearContents

 Application.EnableEvents = True

End Sub追问非常感谢老师，代码非常好用，再麻烦老师您一下，减去1那个不变，加上1那个改成加上D1单元格里显示的数字，D1单元格显示的数字是随机的，是经常变动的，拜托老师了！追答你把要改的公式录制一下宏就明白怎么改了。