excel宏每隔一行插入文本

我有一个我录制的excel宏，但我想在每一行都这样做。有人能帮我吗

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1:C1").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste

    Rows("6:6").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1:C1").Select
    Range("C1").Activate
    Selection.Copy
    Range("A7").Select
    ActiveSheet.Paste
End Sub

像这样的

之前：

之后

解决方案

Sub test()
   Dim Last As Integer, emptyRow As Integer
   Last = Range("A" & Rows.Count).End(xlUp).Row
    For emptyRow = Last To 3 Step -1
        If Not Cells(emptyRow, 1).Value = "" Then
            Rows(emptyRow).Resize(2).Insert
            Range(Cells(emptyRow + 1, "A"), Cells(emptyRow + 1, "C")).Value = Array("School Year", "Term", "Section ID")
        End If
    Next emptyRow
End Sub

---

下面是如何在每一行中做一些事情

Sub EveryOtherRow()
Dim iRow As Integer
iRow = 2

Do While iRow < 1000
'check to see if it is an even row
If iRow Mod 2 = 0 Then
    'do something
End If
iRow = iRow + 1
Loop


End Sub

Sub EveryOtherRow（）
Dim iRow作为整数
iRow=2
当iRow<1000时执行此操作
'检查是否为偶数行
如果iRow Mod 2=0，则
“做点什么
如果结束
iRow=iRow+1
环
端接头

与示例中一样