excel - 如果 VBA 中当前单元格为空，则获取相邻单元格的值

Question

如果当前单元格为空，是否可以使用VBA复制相邻单元格的值？

示例如下:

如果我循环遍历 A 列的单元格并且某个单元格为空，则将 B 列的相邻单元格的值复制到 A 列中的该空单元格。

这应该是我生成的报告:

Answer 1

试试这个:

Sub Demo()
    Dim rng As Range
    Dim lastRow As Long
    Dim cell as Range

    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:A" & lastrow)
    For Each cell In rng
        If cell.Value = "" Then
            cell.Value = cell.Offset(0, 1).Value
        End If
    Next cell
End Sub