特定の文字列を含むシートの削除 (ID:147571)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さま いつもご提案有難う御座います。 以下の様にForループでまわし、 該当のシートがあれば、削除し、その都度対象シートを解放してますが シートを削除すれば、シート数が変わってしまい、ループ途中でエラーになります。(当たり前なのですが。。) 何かよい方法は、ないものでしょうか。。 For shcnt = 1 To xlSheets.Count xldelSheet = DirectCast(xlSheets(shcnt), Excel.Worksheet) If xldelSheet.Name Like "format*" Then xldelSheet.Delete() If xldelSheet IsNot Nothing Then System.Runtime.InteropServices.Marshal.ReleaseComObject(xldelSheet) xldelSheet = Nothing End If End If Next