[已解决]如何删除含100个工作表的工作簿前面78个工作表

lingyuncelia1

以下这个代码是删除工作簿后面的若干工作表，如果要从前面开始删除，该如何改写代码？
Sub 批量删除工作表()
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2016-3-25 10:34

1. Sub 批量删除工作表()
   
2. Application.DisplayAlerts = False
   
3. Dim n%
   
4. Do While n < 78
   
5.    Sheets(1).Delete
   
6.    n = n + 1
   
7. Loop
   
8. Application.DisplayAlerts = True
   
9. End Sub

复制代码

跳转到最佳答案楼层

这儿有肥猫

1. Sub 批量删除工作表()
   
2. Application.DisplayAlerts = False
   
3. Dim n%
   
4. Do While n < 78
   
5.    Sheets(1).Delete
   
6.    n = n + 1
   
7. Loop
   
8. Application.DisplayAlerts = True
   
9. End Sub

复制代码

sry660

1. Sub 删除工作表()
   
2.     Dim arr(), k%
   
3.     For k = 1 To Sheets.Count
   
4.         If k < 79 Then
   
5.             ReDim Preserve arr(1 To k)
   
6.             arr(k) = Sheets(k).Name
   
7.         End If
   
8.     Next
   
9.     Application.DisplayAlerts = False
   
10.     Sheets(arr).Delete
    
11.     Application.DisplayAlerts = True
    
12. End Sub

复制代码

爱疯

改自楼上的



Sub test()
    Dim i, n
    n = 78

    If n + 1 <= Sheets.Count Then
        ReDim A(1 To n)
        For i = 1 To n
            A(i) = i
        Next i
        Application.DisplayAlerts = False
        Sheets(A).Delete
    End If
End Sub

lingyuncelia1

Sub celia()
Application.DisplayAlerts = False
For i = 1 To 78
Sheets(1).Delete
Next
Application.DisplayAlerts = True
End Sub