Sub 巨集1()
' 巨集1 巨集
Dim i As Long
For i = 2To 12
Sheets("工作表i").Select <<<這行顯示出錯誤
ActiveWindow.SelectedSheets.Delete
Next i
End Sub
---------------------------------------------------------------------------------------------------------
解決方案：(原始搞笑的版本)
'
Sheets("工作表4").Select
ActiveWindow.SelectedSheets.Delete
Sheets("工作表5").Select
ActiveWindow.SelectedSheets.Delete
Sheets("工作表6").Select
ActiveWindow.SelectedSheets.Delete
．．
．．
Sheets("工作表12").Select '就同樣的程式碼一直複製貼上，改工作表後面的數字
ActiveWindow.SelectedSheets.Delete
End Sub
-----------------------------------------------------------------------
今天是運氣好只有12個工作表，哪一天如果100個工作表要刪，這個程式碼就變的非常長了．．基於危機意識，特來版上請益。
試試看這個
Sub 巨集1()
Dim i As Integer
For i = 12 To 2 Step -1
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
Next i
End Sub
或
Sub 巨集2()
Dim i As Integer
For i = 1 To 11
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
Next i
End Sub
或
Sub 巨集3()
Dim i As Integer
For i = 1 To 11
a = Sheets.Count
Application.DisplayAlerts = False
Sheets(a).Delete
Application.DisplayAlerts = True
Next i
End Sub
Sub 巨集1()
Dim i As Integer
For i = 12 To 2 Step -1 '從12減到2，每次間隔1
Application.DisplayAlerts = False '停止系統提示<這兩招昨天GBKEE大教我的
Sheets(i).Delete '從工作表12開始刪到工作表2
Application.DisplayAlerts = True '恢複系統提示
Next i
End Sub
回復 3#yagami12th
我也來提供一個，自動判別有幾個sheet，刪除到只剩1個，因為如果連最後一個也刪除，檔案會關閉起來
Sub DeleteSheets()
Dim SheetsCount As Integer
SheetsCount = Application.Sheets.Count
Application.DisplayAlerts = False
If SheetsCount > 1 Then
For i = 1 To SheetsCount - 1
Sheets(1).Delete
Next i
End If
Application.DisplayAlerts = True
End Sub
回復 4#lcc_seven
刪除到只剩1個，因為如果連最後一個也刪除，檔案會關閉起來
請問 一下 2007以上版本允許活頁簿中完全沒有 Sheet (工作表) 嗎?
****************
後續 :
If SheetsCount > 1 Then
For i = 1 To SheetsCount - 1
Sheets(1).Delete <- 刪除第一個 但如是 Sheets(i).Delete 會有錯誤 可參考3#的 Step-1
Next i
End If
******************************
發表於 2012-1-4 19:12
| 
發表於 2012-1-5 09:59
| 