在工作簿上刪除最後一個工作表

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-4-15 00:10 | 只看該作者

請問大大:
Sub 增加工作表()
Worksheets.Add After:=Sheets(Sheets.Count)
End Sub
這是增加工作表的程式

如果要改成刪除最後一個工作表程式要如何寫

謝謝

michael

論壇贊助勳章

3^#

發表於 2016-4-15 19:12 | 只看該作者

回復 2# 准提部林

準大大:
太感謝您拉

謝謝

michael

2^#

發表於 2016-4-15 10:56 | 只看該作者

Sub Sht_DEL()
Application.DisplayAlerts = False
If Sheets.Count > 1 Then Sheets(Sheets.Count).Delete
End Sub

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。