有條件地重複標題

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