Как скопировать текст из одной ячейки во все пустые ячейки в одном столбце?

Question

Я хочу скопировать текстовое содержимое данной ячейки, например A3, во все пустые ячейки столбца A. Но я не хочу перезаписывать содержимое столбца A, в котором уже есть данные.Пустые ячейки не разделены одинаково;некоторые на расстоянии 3 строк, некоторые на 4, некоторые на 7 и т. д.

Answer 1

Этот код будет принимать каждую ячейку в любой группе выбранных ячеек, проверять, есть ли в ней содержимое, и если она пуста, заполнить ее содержимым, находящимся в ячейке A3.В противном случае он просто переходит к следующей ячейке в выделении.

Sub foo()

    'you can replace Selection with any kind of range -- Range("A1:A100") for instance.
    For Each c In Selection
        If c.Value = "" Then c.Value = Range("A3").Value

    Next c

End Sub

Удачи, надеюсь, это поможет