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