返回列表 上一主題 發帖

[發問] (發問)★連刪n個工作表範例問題

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
1# 跳轉到 »
發表於 2012-1-4 22:54 | 顯示全部帖子
回復 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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題