为什么不能删除“高一”所有工作表

laoau128

maditate 发表于 2017-4-8 12:44
非要这样写真的不会写。

用FOR循环从前面开始删除“高一”开头所有工作表

laoau128

smdlyb 发表于 2017-4-8 12:55
把条件改成这样
If sheets(i).Name Like "高一*" Then

用FOR循环从前面开始删除“高一”开头所有工作表

maditate

laoau128 发表于 2017-4-8 13:50
用FOR循环从前面开始删除“高一”开头所有工作表

假设文件中有十个工作表，其中有8个表是符合删除条件的。
现在递增删除工作表，从 1 到 10 依次判断。
判断10次
当你删除了1表后，总表数只剩9了，当你删了5表后，总表数只剩下5了。此时如果你查第6表，系统找不到第6表，你说会不会出错。

laoau128

maditate 发表于 2017-4-8 14:03
假设文件中有十个工作表，其中有8个表是符合删除条件的。
现在递增删除工作表，从 1 到 10 依次判断。
...

如何改，一定有方法吧

maditate

laoau128 发表于 2017-4-8 14:07
如何改，一定有方法吧

办法总是有的，就是不太经济。
无限循环不断的判断删除，直到没有符合条件为止。

laoau128

maditate 发表于 2017-4-8 14:09
办法总是有的，就是不太经济。
无限循环不断的判断删除，直到没有符合条件为止。

请你指导一下

maditate

laoau128 发表于 2017-4-8 16:14
请你指导一下

Sub 从最前面开始删除()
   Do
   On Error Resume Next
    For i = 1 To Sheets.Count
     
        If Sheets(i).Name Like "高一*" Then
            Sheets(i).Delete
      
        End If
        
    Next
    On Error GoTo 0
    If i - 1 = Sheets.Count Then Exit Do
   
     Loop
End Sub

laoau128

maditate 发表于 2017-4-8 14:09
办法总是有的，就是不太经济。
无限循环不断的判断删除，直到没有符合条件为止。

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

maditate

laoau128 发表于 2017-4-8 16:55
请把这个for each循环改写为for循环，  并且不要用like

没测试过，试试看两种方法

Sub for循环用like()
     
    For i = Sheets.Count To 1 Step -1
     
        If InStr(Sheets(i).Name, "高一") <> Empty Then
            Sheets(i).Delete
      
        End If
    Next
     
End Sub



Sub DeleteMulitSheet()
Dim i As Integer
Dim mysh As Worksheet
On Error Resume Next
i = 10
For Each mysh In Sheets
  If InStr(mysh.Name, "高一") <> Empty Then
   mysh.Delete
End If
Next mysh
End Sub

laoau128

maditate 发表于 2017-4-8 17:03
没测试过，试试看两种方法

Sub for循环用like()

Sub d1()
    Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
      If i > Sheets.Count Then Exit For
        If Left(Sheets(i).Name, 2) = "高一" Then
            Sheets(i).Delete
            i = i - 1
        End If
    Next
    Application.DisplayAlerts = True
End Sub


'还有一个问题，如果加这句i = i - 1可以一性删除所有高一表，如果删除这句i = i - 1无法一次删除所有高一表

'这是什么原理，请解释一下