VBA宏循环至i=3224时触发FillDown方法运行时错误1004

报错原因 #

你原代码依赖Select和Selection操作，这类操作极易受Excel界面状态干扰——比如行隐藏、开启筛选、大数据量下UI响应延迟等，到3224行时就触发1004错误。另外UsedRange.Rows.Count常无法精准获取实际数据的最后一行，可能把空行纳入循环范围，导致逻辑混乱。代码里的i = i属于完全多余的无效操作。

优化后的逐行处理代码 #

直接操作单元格，避免选中操作，稳定性大幅提升：

Sub FillBlankRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 精准获取A列最后一行有数据的行号，比UsedRange更可靠
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从第3行开始循环到最后一行
    For i = 3 To lastRow
        ' 直接判断A列当前行是否为空
        If IsEmpty(Cells(i, "A")) Then
            ' 直接对该行执行FillDown，无需选中
            Rows(i).FillDown
        End If
    Next i
End Sub

高效批量处理版本（适合大数据量） #

如果行数较多，逐行循环效率低，可批量定位空白行一次性处理：

Sub FillBlankRowsBatch()
    Dim lastRow As Long
    Dim blankRows As Range
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 批量找出A列第3行到最后一行的所有空白单元格
    On Error Resume Next
    Set blankRows = Range("A3:A" & lastRow).SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not blankRows Is Nothing Then
        ' 对所有空白行一次性执行FillDown
        blankRows.EntireRow.FillDown
    End If
End Sub

额外排查要点 #

• 关闭筛选：若工作表处于筛选模式，隐藏行可能导致报错，可在代码开头添加ActiveSheet.AutoFilterMode = False取消筛选。
• 检查隐藏行：若存在隐藏行，先取消隐藏再运行宏。
• 不要修改循环变量：循环内切勿随意更改i的值，避免逻辑混乱。

内容的提问来源于stack exchange，提问作者Miroslav Ďuriš