有条件地重复标题

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