VBA - 在动态标题下方插入行

VBA - 在动态标题下方插入行

vba
Sub InsertRowBelowTitle()
    Dim titleRow As Range
    Dim newRow As Range
    
    ' 获取标题行
    Set titleRow = Range("1:1")
    
    ' 在标题下方插入一行
    titleRow.Offset(1).EntireRow.Insert Shift:=xlDown
    
    ' 获取新插入的行
    Set newRow = titleRow.Offset(1)
    
    ' 在新插入的行填写相关信息
    newRow.Cells(1, 1).Value = "2022-01-04"
    newRow.Cells(1, 2).Value = 1800
    newRow.Cells(1, 3).Value = "赵六"
End Sub