如何使用VBA在一列中传播多个标头？

Sub SpreadHeaders()
    Dim rng As Range
    Dim header As Range
    Dim lastRow As Long
    
    ' 设置要传播标头的范围
    Set rng = Range("A1:A10") ' 将范围修改为你需要的列范围
    
    ' 获取最后一行的行号
    lastRow = rng.Cells(rng.Rows.Count, 1).Row
    
    ' 循环遍历范围中的每个单元格
    For Each header In rng
        ' 判断单元格是否为空
        If header.Value <> "" Then
            ' 将标头复制到下一个非空单元格
            header.Copy header.Offset(1, 0)
            
            ' 将下一个非空单元格及其以下的单元格向下移动一行
            Range(header.Offset(1, 0), Cells(lastRow + 1, header.Column)).Insert Shift:=xlDown
        End If
    Next header
End Sub