如何使用for loop VBA Excel有条件地复制和粘贴行

Sub CopyPasteRows()
    Dim i As Integer
    Dim lastRow As Integer
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 判断条件，如果满足条件则复制并粘贴行
        If Cells(i, 1).Value = "条件" Then
            Rows(i).Copy
            Rows(i + 1).Insert Shift:=xlDown
            i = i + 1 ' 跳过刚复制的行
        End If
    Next i
    
    ' 删除原始行
    For i = lastRow + 1 To 1 Step -1
        If Cells(i, 1).Value = "条件" Then
            Rows(i).Delete
        End If
    Next i
End Sub