vba 向下填充公式每1000行暂停1秒

在VBA中，如果你需要编写一个循环来向下填充公式，并且想每隔1000行暂停1秒钟，可以使用`Application.Wait`函数配合计数器来实现这个需求。假设你想从A1单元格开始填充公式，这里是简单的示例：

Sub FillFormula()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 确定工作表
    Dim startRow As Long
    startRow = 1
    Dim i As Long
    Dim pauseTime As Long
    
    Do While ws.Cells(startRow, 1).End(xlDown).Row < SomeMaxRows ' 更改SomeMaxRows为你想要的最大行数
        ws.Range(ws.Cells(startRow, 1), ws.Cells(startRow, 1).End(xlDown)).AutoFill Destination:=ws.Range(ws.Cells(startRow, 1), ws.Cells(startRow, 1)) ' 填充公式
        i = i + 1 ' 计数器加一
        
        If i Mod 1000 = 0 Then ' 每隔1000行暂停1秒
            Application.Wait (Now() + TimeValue("0:00:01")) ' 暂停1秒
            i = 0 ' 重置计数器
        End If
        
        startRow = startRow + 1
    Loop
End Sub

在这个例子中，你需要替换`SomeMaxRows`为你要填充公式的最大行数，并且确保你的公式已经设置好了。