Excel - лучший способ программно вставить данные ячейки

Question

Моя таблица имеет следующий формат:

(empty)
(empty)
(empty)
(empty)
(empty)
(data)
(empty)
(empty)
(data)
(empty)
(empty)
(empty)
(data)

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

Например:

(empty)
(empty)
(empty)
(empty)
(data1)
(empty)
(empty)
(data2)

становится:

(data1)
(data1)
(data1)
(data1)
(data1)
(data2)
(data2)
(data2)

Answer 1

Предполагая, что ваши данные находятся в столбце A, а столбец B пуст, вы можете заполнить столбец B следующей формулой:

(Строка номер 1 здесь соответствует строке ячейки, в которую вы помещаете эту формулу.)

=IF(A1="",B2,A1)

Что это делает, это посмотреть на ячейку в текущей строке. Если это значение пустое, извлеките данные из ячейки ниже. Ячейка ниже, с использованием того же поиска, будет заполнена чем-то, что затем перетянет столбец во все ячейки.

Заполнив таким образом свой столбец B, вы можете скопировать / вставить значения в исходные поля в столбце A.

Answer 2

Заполните снизу, например, столбец D:

Sub FillUp()
    Dim N As Long, L As Long
    N = Cells(Rows.Count, "D").End(xlUp).Row
    For L = N - 1 To 1 Step -1
        If Cells(L, "D").Value = "" Then
            Cells(L, "D").Value = Cells(L + 1, "D").Value
        End If
    Next L
End Sub