好吧问答库 > Excel vba,执行循环函数的,怎么让他到了一定的部数休息一下?

Excel vba,执行循环函数的,怎么让他到了一定的部数休息一下?

比如这个for i to 100000cells(i,1)="大家好,我就是个测验!"next这里有10万步,但是很容易就卡死了.然后电脑就死机了我想让他每隔1000行,就休息一下,延时一下,或者保存一下,怎么弄?

2026年09月23日 19:14

有1个网友回答

网友（1）：

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
Sub Sleep1sWhen1000Step()
    Dim i As Long
    For i = 1 To 100000
        Cells(i, 1) = "大家好,我就是个测试!"
        If i / 1000 = Int(i / 1000) Then Sleep 1000    '每到1000步延时1秒
    Next
End Sub

下次没有悬赏不回答了哈，客官请自重