excek快速删除指定行

来源:互联网 发布:局域网软件 编辑:程序博客网 时间:2024/05/21 04:25
Sub L()
For i = 29 To 1740 Step 29
Rows(i & ":" & i).Select
Selection.Delete shift:=xlUp
i = i - 1
Next
End Sub
  
0 0
原创粉丝点击