為何不能刪除多個工作表(只刪到最後1個)

千暉尋

想要刪除工作表名前2碼為11(即11月份的工作表,如11.5 11.6 11.7),為何總是只刪到最後一個工作表 為何不能一次刪除多個工作表.rar (52.96 KB)

下載次數: 14

2019-10-30 13:05

luhpro

回復 1# 千暉尋

我用 Excel 2013 單步模式追蹤及執行都沒發現你說的情形喔,

你要不要敘述的更詳細一點,

或是中間有其它指令行存在你沒秀出來?

准提部林

Private Sub CommandButton1_Click()
Dim MM%, SC%, i%, SN$
MM = Month(Date + 10)
SC = Sheets.Count
Application.DisplayAlerts = False
For i = SC To 1 Step -1
    SN = Sheets(i).Name
    If Val(Split(SN, ".")(0)) = MM And SN <> Me.Name Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub


=======================

千暉尋

回復 2# luhpro 謝謝大大的幫忙,我後來再試,也能刪去,只是不知道為何前後會有差異發生(也許有某些操作影響,但跡象不明,因功力薄弱,無法查知及取得)

千暉尋

回復 3# 准提部林 每次發問都能學到簡潔有力的語法,感謝准大出手幫忙.