excel VBA For Each -使用上面的数据填充空白单元格

ttcibm8c 于 2023-04-13 发布在其他

关注(0)|答案(1)|浏览(157)

该选项卡被命名为“堆栈”（未图示）。我期待填充空白的基础上的值与间歇性变化之间的空白。
下面的代码不会生成错误，但不会在空白单元格中填充任何内容。我用工作表公式确认了“”如预期的那样为TRUE（例如=A4="”返回TRUE）。

Sub populapotato()

Dim myRange As Range
Dim potato As Variant

Set myRange = ActiveWorkbook.Sheets("Stack").Range("A4:A50")

For Each potato In myRange

'End loop at blank data cell
    If potato.Offset(0, 1).Value = "" Then
        Exit For
            End If

'Populate File Name col if blank
        If potato = "" Then
        potato = potato.Offset(-1, 0).Value
            Else
                End If
                
Next potato

End Sub

excel

来源：https://stackoverflow.com/questions/75981512/vba-for-each-populate-blank-cells-with-data-above

1条答案

按热度按时间

lymnna711#

使用Range作为potato的类型，并在为单元格/范围赋值时使用.Value：

Sub populapotato()
    Dim myRange As Range, potato As Range
    
    Set myRange = ActiveWorkbook.Sheets("Stack").Range("A4:A16")
    For Each potato In myRange.Cells
        Debug.Print potato.Address, potato.Value = ""
        If Len(potato.Offset(0, 1).Value) = 0 Then Exit For
        If Len(potato.Value) = 0 Then potato.Value = potato.Offset(-1, 0).Value
    Next potato
End Sub

赞(0）回复(0）举报 2023-04-13

我来回答

excel VBA For Each -使用上面的数据填充空白单元格

1条答案

相关问题

热门标签

最新问答