Автоматическое заполнение ячеек (VBA)

[The_Prist]

Вот как вариант еще один макрос заполнения всех пустых значениями верхних ячеек(все формулы в столбцах 1 и 2 заменяться на значения)

Sub Fill_Empty_Cells()
    Dim rRange As Range, rTmpRange As Range
    On Error Resume Next
    Set rRange = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1, 2))
    Set rTmpRange = rRange.SpecialCells(xlBlanks)
    If rTmpRange Is Nothing Then Exit Sub
    rTmpRange.FormulaR1C1 = "=R[-1]C": rRange.Value = rRange.Value
    Set rTmpRange = Nothing: Set rRange = Nothing
End Sub

[Sasha_Smirnov]

Сообщение от SAS888

А если нужно "пронумеровать" миллион строк?

А для 10 вообще легче ввести вручную! Записав макрорекордером.

В научных целях и мой способ хорош. Да он ещё и для Word подходит — если переименовать в AutoOpen.