[已解决]简单的删除语句就一句为何还出错?

棋行天下黄

FOR I=2 TO 48 STEP 2
SHEETS("SHEET & i & ").DELETE
NEXT I
将工作簿中sheet2，sheet4......sheet48删除，（sheet3等已被命名为三洋彩电,伊莱克斯空调等，还有透视表等因此不用sheets（i）删除）
结果这简单的语句都报错，请问删除这句变量到底如何写？）

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-11-14 01:12

1.     For I = 2 To 48 Step 2
   
2.         '利用循环和CODENAME属性判断
   
3.         Y = False
   
4.         For Each SHT In Sheets
   
5.             If SHT.CodeName = "Sheet" & I Then
   
6.                 Y = True
   
7.                 Exit For
   
8.             End If
   
9.         Next
   
10.         If Y = True Then SHT.Delete
    
11.     Next I

复制代码

跳转到最佳答案楼层

as0810114

不对

xdragon

用for i=48 to 2 step -2
试试。。。

棋行天下黄

as0810114 发表于 2013-11-13 22:11
不对

如何不对？SHEETS("SHEET “ &  i).DELETE 也不行，语法错误，编译错误！

棋行天下黄

xdragon 发表于 2013-11-13 22:12
用for i=48 to 2 step -2
试试。。。

试了的，这个方法也不行！怪事

棋行天下黄

棋行天下黄 发表于 2013-11-13 22:34
试了的，这个方法也不行！怪事

用Sheets("Sheet" & i).Select
    ActiveWindow.SelectedSheets.Delete后程序正常了，正常了再改回去用一句Sheets("Sheet" & i)delete
结果又好了，邪门，我已经第二次遇到循环语句工作不正常，后来正常了发现那句语句又正常了

那么的帅

1.     For I = 2 To 48 Step 2
   
2.         '利用循环和CODENAME属性判断
   
3.         Y = False
   
4.         For Each SHT In Sheets
   
5.             If SHT.CodeName = "Sheet" & I Then
   
6.                 Y = True
   
7.                 Exit For
   
8.             End If
   
9.         Next
   
10.         If Y = True Then SHT.Delete
    
11.     Next I

复制代码