Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Macro1()
Dim i As Integer
For i = 1 To 5
Sheet1.Range("D10").Select
ActiveCell.Activate
SendKeys " "
Sleep 1000
DoEvents
SendKeys "{enter}"
Sleep 1000 '可以看到动态改变的效果
DoEvents
Next
End Sub
转载于:https://www.cnblogs.com/fengju/archive/2006/06/04/6336333.html