如何编写循环

向往的歌

请教坛里的各位大神，本人录制了一段宏（10行），这段宏是用来删除表格中的行，一共删除了10行。实际还要删除很多的行（但不是连续的删除，要根据需要来删除）。本人小白，不懂循环语句，求大神们指点！
Sub 删除行()
'
' 删除行 宏
'

'
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Delete Shift:=xlUp
End Sub

lh123lh1234

你写删除像这样写的话，对计算机就太不友好咯
当然不能答非所问，循环语句：
for循环：
for 循环变量
循环体
next

do循环：
do while/until条件
循环体
loop

for each 循环
for each 对象变量
循环体
next

liulang0808

建议楼主上传附件，结合附件说明吧

网海遨游

删除行，一般采用倒循环

如
for i=100 to 1 step -1
  if   then
   '......
  endif
next i

佛衫丶黄非红

来个附件更实在

向往的歌

网海遨游 发表于 2019-12-4 20:35
删除行，一般采用倒循环

如

感谢亲的热心！——亲，麻烦您看看！——需要制作多人的：先假定两人吧！第一人，要保留序号为14、15、38、39、40、41、42、43、50、51、59、60、61、66、68、69、75、76、78、79的行，其余的都要删掉！ 第二人，要保留序号为15、17、18、19、20、21、22、23、24、25、26、27、28、29、30、31、42、50、60、66、75、77、78的行，其余的都要删掉！其实还有多人，每人的责任不一样，需要保留和删除的行也不一样！我用“土办法”做，先是根据责任人筛选出来，然后进行删除！（好麻烦啊！求大神指点！）

向往的歌

liulang0808 发表于 2019-12-4 19:35
建议楼主上传附件，结合附件说明吧

版主大神，麻烦指点指点——需要制作多人的：先假定两人吧！第一人，要保留序号为14、15、38、39、40、41、42、43、50、51、59、60、61、66、68、69、75、76、78、79的行，其余的都要删掉！ 第二人，要保留序号为15、17、18、19、20、21、22、23、24、25、26、27、28、29、30、31、42、50、60、66、75、77、78的行，其余的都要删掉！其实还有多人，每人的责任不一样，需要保留和删除的行也不一样！我用“土办法”做，先是根据责任人筛选出来，然后进行删除！（好麻烦啊！求大神指点！）

向往的歌

佛衫丶黄非红 发表于 2019-12-4 20:47
来个附件更实在

亲，“实在”的来了！——需要制作多人的：先假定两人吧！第一人，要保留序号为14、15、38、39、40、41、42、43、50、51、59、60、61、66、68、69、75、76、78、79的行，其余的都要删掉！ 第二人，要保留序号为15、17、18、19、20、21、22、23、24、25、26、27、28、29、30、31、42、50、60、66、75、77、78的行，其余的都要删掉！其实还有多人，每人的责任不一样，需要保留和删除的行也不一样！我用“土办法”做，先是根据责任人筛选出来，然后进行删除！（好麻烦啊！求大神指点！）

向往的歌

lh123lh1234 发表于 2019-12-4 15:56
你写删除像这样写的话，对计算机就太不友好咯
当然不能答非所问，循环语句：
for循环：

亲，已关注微信号！

格物郅知

http://club.excelhome.net/forum. ... ead&tid=1509767
这个帖子，我的回答有详细的注释，可以看看。