2

名前が「dataasat」で始まるシートを削除したい。私は以下を使用しましたが、機能していません。

For Each SheetExists In Worksheets
    If Left(SheetExists.Name, 10) = "Data as at" Then
        Application.DisplayAlerts = False
        Sheets(Left("Data as at", 10)).Delete
        Application.DisplayAlerts = True
        Exit For
    End If
Next SheetExists

次の行に添え字エラーが返されます。

Sheets(Left("Data as at", 10)).Delete
4

1 に答える 1

3

Sheets(Left("Data as at", 10)).Delete

SheetExists.Delete

于 2012-10-02T04:25:09.953 に答える