if 循环
Sub gzt01()
Dim e As Integer
For e = 3 To 50 Step 2
If Range("A" & e) = "" Then
Exit For
End If
Range("A1:L1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A" & e).Select
Selection.Insert Shift:=xlDown
Next
End Sub
Sub gzd01()
Dim e As Integer
For e = 3 To 30 Step 1
If Range("A" & e) = "" Then
Exit For
End If
Range("A" & e).Select
Selection.EntireRow.Delete
Next
End Sub