[已解决]请把这个for each循环改写为for循环， 并且不要用like

laoau138

请把这个for each循环改写为for循环，  并且不要用like

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-10 16:46

1.     For i = Sheets.Count To 1 Step -1
   
2.      
   
3.         If InStr(Sheets(i).Name, "高一") Then
   
4.             Sheets(i).Delete
   
5.       
   
6.         End If
   
7.     Next

复制代码

跳转到最佳答案楼层

endupbkb

不用for each改用for的话，那就得一个sheet一个sheet的判断了，判断一个删一个，删一个就少一个。
所以你循环的sheet数量是递减的，递减的话不就得从最后一个开始判断么。不然你从1开始循环，第1个表删掉了，循环到2的时候判断的就是当前workbook的第2个sheet了。

laoau138

endupbkb 发表于 2017-4-8 22:41
不用for each改用for的话，那就得一个sheet一个sheet的判断了，判断一个删一个，删一个就少一个。
所以你 ...

怎样写代码

大灰狼1976

1.     For i = Sheets.Count To 1 Step -1
   
2.      
   
3.         If InStr(Sheets(i).Name, "高一") Then
   
4.             Sheets(i).Delete
   
5.       
   
6.         End If
   
7.     Next

复制代码