Sub L()
For i = 29 To 1740 Step 29
Rows(i & ":" & i).Select
Selection.Delete shift:=xlUp
i = i - 1
Next
End Sub
For i = 29 To 1740 Step 29
Rows(i & ":" & i).Select
Selection.Delete shift:=xlUp
i = i - 1
Next
End Sub
1万+

被折叠的 条评论
为什么被折叠?
