excel - 宏查找空白单元格并替换

Question

我有两列数据，A 和 B。我想在 B 列中找到空白单元格，然后如果 A 也不是空白，则从 A 列中的相应单元格复制数据。

Answer 1

我会使用 SpecialCells：

Sub fillblanks()
Dim rngBlanks As Range
Dim rng As Range
Dim cl As Range

Set rng = ActiveSheet.UsedRange.Columns(2)
Set rngBlanks = rng.SpecialCells(xlCellTypeBlanks)
For Each cl In rngBlanks.Cells
    With cl
        If (.Value = "") And (.Offset(0, -1).Value <> "") Then
            .Value = .Offset(0, -1).Value
        End If
    End With
Next

End Sub

Answer 2

Sub Sample2()

On Error Resume Next

With Columns("B").SpecialCells(xlCellTypeBlanks)
    .FormulaR1C1 = "=RC[-1]"
    .Value = .Value
End With

End Sub

如果 A 中的单元格为空白，这并不能完全按照您的要求，好像不会跳过空白单元格，这是因为我不明白为什么用另一个空白替换和空白会是一个问题。如果有的话，只需修改 .FormulaR1C1 = "=RC[-1]"以考虑空白，就可以轻松解决问题。

Answer 3

不需要VBA。选择 ColumnB, HOME > Editing, Find & Select, Go To Special..., Select Blanks (only),

=  

←</kbd>, Ctrl+Enter.