標題: 在工作簿上刪除最後一個工作表 [打印本頁]

---

作者: chairles59    時間: 2016-4-15 00:10     標題: 在工作簿上刪除最後一個工作表

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

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

謝謝

---

作者: 准提部林    時間: 2016-4-15 10:56

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

---

作者: chairles59    時間: 2016-4-15 19:12

回復 2# 准提部林

準大大:
太感謝您拉

謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)