条件付きで繰り返すヘッダー

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