[已解决]row选取删除

10210578

各位大大 假如我有一千笔资料  只要选取10的倍数的ROW删除 请问要怎么写(例如10 20 30

最佳答案

月排行榜 / 总排行榜

wanao2008

2016-7-7 19:16

请测试：
（注意：一但删除不可撤消，如果想恢复可不保存）

1. Sub wanao()
   
2.     Dim Rl As Integer
   
3.     Rl = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     Rl = Rl - (Rl Mod 10)
   
5.     For x = Rl To 10 Step -10
   
6.         Rows(x & ":" & x).Delete
   
7.     Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

wanao2008

请测试：
（注意：一但删除不可撤消，如果想恢复可不保存）

1. Sub wanao()
   
2.     Dim Rl As Integer
   
3.     Rl = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     Rl = Rl - (Rl Mod 10)
   
5.     For x = Rl To 10 Step -10
   
6.         Rows(x & ":" & x).Delete
   
7.     Next
   
8. End Sub

复制代码

10210578

^^~