• ベストアンサー

シートを削除するマクロ

現在開いているブックの一番後ろにあるシートだけ残して、残りのシートを全て削除するマクロを教えて頂きたいのですが。

質問者が選んだベストアンサー

  • ベストアンサー
  • bonaron
  • ベストアンサー率64% (482/745)
回答No.4

Dim i As Integer Application.DisplayAlerts = False For i = ActiveWorkbook.Worksheets.Count - 1 To 1 Step -1   Worksheets(i).Delete Next Application.DisplayAlerts = True

pyunimo
質問者

お礼

有難うございます。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (3)

  • marbin
  • ベストアンサー率27% (636/2290)
回答No.3

なんどもすみません。 For i = Worksheets.Count-1 To 1 Step -1 でした。 失礼しました。

全文を見る
すると、全ての回答が全文表示されます。
  • marbin
  • ベストアンサー率27% (636/2290)
回答No.2

逆でした。 For i = Worksheets.Count-1 To 1 としないといけないですね。 失礼しました。

全文を見る
すると、全ての回答が全文表示されます。
  • marbin
  • ベストアンサー率27% (636/2290)
回答No.1

Worksheets.Count でシート数が取得できます。 で For i = 1 to Worksheets.Count-1 のようにループさせたらいいと思います。 なお、 Application.DisprayAlert = False 'シート削除処理 Application.DisprayAlert = True としないとエラーになります。

pyunimo
質問者

お礼

有難うございます。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelマクロ シート名一覧からシート削除

    Excelマクロで質問させてください。 任意のシートに記載されたシート名一覧を参照して、そこに記載されているシート名のシートを、ブック内から削除するマクロは作れますでしょうか? よろしくお願いします。

  • マクロ ブックをマクロなしでコピー

    いつもお世話になっております。 マクロのことで 2つ教えて頂きたく書き込みをさせて いただきまいした。 よろしくお願いいたします。 ブックに何枚かシートがあり、 そのシートには全て同じマクロが入ってます。 このブックのシート全てを マクロを削除し新しいブックにコピーをしたいです。 また、コピーをする際に マクロがついているオブジェクト(ボタン) もとってコピーをしたいです。 自力で調べたのですが うまくわからずまた、こちらで質問 させていただきました。 よろしくお願いいたします

  • Excelマクロ 特定の文字のタブのシートを削除

    こんにちは。 Excel2003を使用しています。 数十枚のシートからなるブックがあります。 シートのタブの名前はAxxxxxxとBxxxxxxの文字列です。 Axxxxxxのシートは不要なので全て削除したいと思います。 そこで、マクロの書き方を教えてください。 Worksheet("A*").Delete では「型が合いません」と怒られます。 よろしくお願いいたします。

  • エクセルのマクロで、シートを削除するとき・・・

    エクセルのマクロでシートを削除するとき、 「データが存在する可能性があります。削除しますか?」と確認メッセージが出てきます。そこで、「削除する」というボタンを押さないといけません。 この確認をいちいち出さないで(つまりマクロではその確認は不要。削除するボタンを押す手間を省きたい)、マクロでシート削除をしたいのです。 確認メッセージを出さないでマクロでシート削除する方法を教えてください。お願いします。

  • シートの削除や移動が出来なくなってしまいました。

    いつもお世話になっております。  最近ここでマクロを色々教わって試行錯誤しているうちに、テスト用に作ったシートの削除もシートの移動もできなくなってしまいました。 少し前にブックの保護をかけたのでそれだと思い、確認しましたがブックもシートも保護されていませんでした。 ちなみにシートのタブを右クリックすると、「コードの表示」と「シートの保護」と「全てのシートを選択」の3つのメニューしかアクティブになっていません。 他のエクセルファイルは大丈夫なのですが。

  • エクセルのマクロでのシートの削除について

    エクセルのマクロについて エクセル97でファイルを閉じる前にシートを一つ削除するマクロを流そうとしているのですが、 マクロが流れるとシートを削除するかどうかの確認のダイアログが表示されてしまいます。 この確認のメッセージなしでマクロでシートを削除することは出来ないのでしょうか? ----------------- 実際のプログラム ------------------ Sheets(シート名).Select ActiveWindow.SelectedSheets.Delete わかる方がおられましたら宜しくお願い致します。

  • マクロを複数シートに実行するには?

    ブック内全ての複数のシート(sheet30くらい)に、 同じマクロ作業を実行するには どのようにすればよいでしょうか?

  • Excelのマクロについて

    マクロの保存先を「開いているすべてのブック」にして、 A2~A32をいったん削除した後で、 1月1日から、1月31日を入力して、 最後にA2をアクティブセルにしておく、というマクロを作りました。 1/1と入力すると、普通、1月1日と表示されますよね? 同一ブック、同一シートないでしたら、そのように表示されるのですが、 同一ブック、別シートあるいは、 別ブックで、このマクロを実行すると、 2001/1/1と表示されます。 あとで、セルの表示形式を変えればいいんでしょうが、 この原因が、なぜ、そうなるのかが知りたいです。 (まだ、そのシート内以外だと、マクロが設定できない、 とかの方がわかるんですが。) また、 同一シートでなくても、 1月1日~1月31日の表示形式のままで、 設定できるマクロがあったら、あわせて教えてください。 作成しているファイルの、 バージョンは、Excel2002ですが、 マクロは、2000と変わらないと思うんですが・・・。 よろしくお願いいたします。

  • 【Excel365】マクロを削除するマクロ

    特定のシート(仮にAとします)に添付画像のマクロ(別のマクロを実行するマクロ)を組み込んであります。 シートAをコピーしてシートBを作成し、値コピー・行削除などいろいろ編集した後にxlsxとして保存するという作業をしています。 しかし、シートBにも画像のマクロが組み込まれたままなので、1行目を削除するとマクロ「更新」が実行されてしまいます。 シートをコピーした後、画像のマクロを削除する方法はありませんか? 各Q&Aサイトをググるといろいろ出てきますが、理解できませんでした。 もしくは、シートAとそっくりなシート(ページレイアウトや書式もそのままでデータのみ値コピー)を作成するマクロの提示でも構いません。

  • 複数シートにある列を削除

    只今マクロの勉強中(超初心者)で簡単な質問なので 恐縮なんですが、 一つのブックに複数のシートがあります。 全部のシートのA列を一括で削除したいのですが、 マクロの記述はどのようになるでしょうか。

専門家に質問してみよう