Блог

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

Этот код будет принимать каждую ячейку в любой группе выбранных ячеек, проверять, есть ли в ней какое-либо содержимое, и если оно пустое, то заполните его содержимым, которое находится в ячейке 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
  

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