Excel VBA宏需求：动态自动填充至下一个空行（分块数据场景）

问题场景 #

你需要为A列的分块数据动态填充对应值：在A列指定空白单元格粘贴值后，自动填充至下一个空行或B列对应行无数据的位置，现有代码仅能填充连续非空行，无法适配分块且行数不固定的场景。

改进代码 #

以下代码可自动识别每个数据块的范围，完成动态填充：

Sub FillDataBlocks()
    Dim currentCell As Range
    Dim fillValue As Variant
    Dim lastRow As Long
    Dim blockEndRow As Long
    
    ' 确认选中A列单元格
    Set currentCell = Selection
    If currentCell.Column <> 1 Then
        MsgBox "请选中A列的单元格操作！"
        Exit Sub
    End If
    fillValue = currentCell.Value
    
    ' 获取B列最后一行有数据的行号
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    ' 循环处理所有数据块
    Do While currentCell.Row <= lastRow
        ' 先获取当前A列块的临时结束行
        blockEndRow = currentCell.End(xlDown).Row
        
        ' 校验B列对应行是否还有数据，修正块结束位置
        If Cells(blockEndRow + 1, "B").Value <> "" Then
            blockEndRow = Cells(blockEndRow, "B").End(xlDown).Row
        End If
        
        ' 确保不超出B列数据边界
        If blockEndRow > lastRow Then blockEndRow = lastRow
        
        ' 执行填充
        currentCell.AutoFill Destination:=Range(currentCell, Cells(blockEndRow, 1)), Type:=xlFillCopy
        
        ' 定位到下一个数据块的起始单元格
        Set currentCell = Cells(blockEndRow + 2, 1)
        
        ' 跳过空行，找到下一个有B列数据对应的A列位置
        Do While currentCell.Row <= lastRow And Cells(currentCell.Row, "B").Value = ""
            Set currentCell = currentCell.Offset(1, 0)
        Loop
    Loop
End Sub

使用步骤 #

• 在A列需要填充的起始单元格输入目标值并选中它
• 运行该宏，代码会自动完成当前块填充，然后跳转至下一个数据块重复操作

核心逻辑 #

• 以B列最后有数据行作为全局边界，避免遗漏数据
• 结合A列空行和B列数据行双重判断，精准识别每个数据块的结束位置
• 自动定位下一个数据块，无需手动重复操作

内容的提问来源于stack exchange，提问作者Manny