Макро Найти пустые ячейки и заменить

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 

Это не делает так, как вы спросите, как если бы не пропустить пустую ячейку, если ячейка А является пустым, Это потому, что я не чтобы понять, почему замена и пустой пробел будет проблемой. если есть очень простое исправление, просто изменяя .FormulaR1C1 = "=RC[-1]", чтобы принять во внимание пробелы.

Answer 3

Нет необходимости в VBA. Выберите ColumnB, ДОМОЙ> Редактирование, Найти & Выбрать, Go To Special ... Выбрать Пробелы (только),

= 

←, Ctrl +Введите.