Условно повторяющиеся заголовки

Question

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

Parking light

1157A

Front turn signa

l1157A 

11157

Rear turn signal 

7440

Tail light 

168

7443

Мне нужно, чтобы это выглядело так:

Parking light

1157A

Front turn signal

1157A

Front turn signal

1157

Rear turn signal

7440

Tail light

168

Tail light

7443

Answer 1

Предполагая, что ячейка данных начинается с цифры, а ячейка заголовка - нет, это должно сработать. Он переходит от активной ячейки вниз, пока не найдет записанные ячейки.

Sub repeatHeadings()

    Dim header As String

    While ActiveCell.FormulaR1C1 <> ""

        If IsNumeric(Left(ActiveCell.FormulaR1C1, 1)) Then
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            ActiveCell.FormulaR1C1 = header
        Else
            header = ActiveCell.FormulaR1C1
        End If

        ActiveCell.Offset(2, 0).Select

    Wend

End Sub