在VBA中，如何让程序自动等待一定时间后，跳转至某一步？

调用Sleep函数可以实现延时。或者加一个do loop循环 ，使用timer检测时间。

但是，按照你的代码结构，延时后继续跳转到IF上面，会不会重复判断，陷入死循环哦？

VB中有一个API函数叫Sleep可以实现暂停。或者用下面的自定义过程waitsec来实现暂停。

Sub mmm()

MsgBox "XX"

waitsec 2

MsgBox "XX"

waitsec 2

MsgBox "XX"

End Sub

Private Sub waitsec(ByVal dS As Double)

Dim sTimer As Date

sTimer = Timer

Do

DoEvents

Loop While Format((Timer - sTimer), "0.00") <dS

End Sub

---