VBA For Each循环无法填充空白单元格问题求助

问题根源分析 #

• 循环提前终止：原代码中If potato.Offset(0, 1).Value = "" Then Exit For的逻辑，会在目标单元格右侧（B列对应行）为空时直接跳出循环。如果你的数据区域右侧存在空白，循环根本没机会处理A列的空白单元格就提前结束了，这是导致填充无效果的核心原因。
• 赋值对象错误：原代码将potato声明为Variant，遍历myRange时potato取的是单元格的值而非单元格对象。此时potato = potato.Offset(-1, 0).Value只是修改了变量的值，并没有真正写入单元格。

修复后的代码 #

Sub populapotato()
    Dim myRange As Range
    Dim potato As Range ' 改为Range对象，才能直接操作单元格
    
    Set myRange = ActiveWorkbook.Sheets("Stack").Range("A4:A50")
    
    For Each potato In myRange
        ' 判断单元格是否为空，IsEmpty比直接判断""更可靠
        If IsEmpty(potato.Value) Then
            ' 跳过区域第一个单元格，避免向上偏移出错
            If potato.Row > myRange.Row Then
                potato.Value = potato.Offset(-1, 0).Value
            End If
        End If
    Next potato
End Sub

关键调整说明 #

1. 将potato声明为Range类型，遍历过程中直接操作单元格对象，赋值时能真正修改单元格内容。
2. 用IsEmpty(potato.Value)判断空白，兼容公式返回空、真正空白单元格等多种空值场景。
3. 增加行号判断，防止区域第一个单元格为空时，向上偏移（Offset(-1,0)）引发错误。
4. 删除了提前终止循环的逻辑，除非你明确需要用右侧单元格空白作为循环终止标记，否则该逻辑会打断正常的填充流程。

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