【Excel_VBA】セルに連動したシート削除

質問

ExcelのVBAで実装可能かと思うのですが、ご教授願いたく思います。

シートがかなりたくさんあるエクセルブックがあります。
各シートの指定のセルに文字列の有無を判断し
文字列が無い場合、そのシートを消す
この作業を連続して多数の該当シートを一気に削除したいVBAは
どのように記述すればよいでしょうか？

また、４シートほど、表紙やリストなど上記、文字列の有無を判断せず
そのまま残したいシートもあります。（このシート群は固定で増える事はありません）

上記、もし実装可能であればご教授お願いします。
また、可能だけどokwaveの入力欄では面倒だし説明しづらい、という回答でもokです。
その場合、参考サイトなど教えて頂けると幸いです。
（当方VBAには精通しておりませんが）

何卒よろしくお願いいたします。

回答No.3

imogasi · ベストアンサー

#2です。
Range("B13")
の部分は Sh.Range("B13") とシートを特定する書き方にしてください。
sh.Select
は不要のはずです。いくらかでも実行が速くなるかな。
Ｗｉｔｈ　Sh
.Range("B13") =・・・ <ーー最初にドットがあるよ。
End Ｗｉｔｈ
なんて書き方も出来る。

お礼

なるほどありがとうございます。

For Each ～～　In Worksheets
という文のおかげで色々なものが簡単に実装できました。
ありがとうございました！

回答No.2

imogasi

標準モジュールに
新規の白紙ブックでテストしてみて納得後、ブックをコピーしてテストすること。
Sub test01()
For Each sh In Worksheets
MsgBox sh.Name
Next
End Sub
を入れて実行すると、すべてのシートをとらえていることが納得できよう。
そして　ｓｈ.Name="Sheet1" Then
Sub test01()
For Each sh In Worksheets
If sh.Name <> "Sheet1" Then
MsgBox sh.Name
End If
Next
End Sub
でＳｈｅｅｔ１を飛ばすことがきっ冠できるだろう。複数の場合の書き方は勉強して。
Ｍｓｇｂｏｘ　のところへシートの削除をsh.Deleteを入れて
Sub test01()
For Each sh In Worksheets
If sh.Name <> "Sheet1" Then
MsgBox sh.Name
sh.Delete
End If
Next
End Sub
で警告は出るがSheet1
以外は削除する。
ーー
＞各シートの指定のセルに文字列の有無を判断し・・
＃１のご回答では決った文言セルがあるかを検索しているが、それは決ったセルの値だよね？
Ｂ１セルとすれば
If Range("B1")="" Then
Sh.Delete
にする。
警告を出さないのコードは勉強して。「エクセル　ＶＢＡ　警告」でＧｏｏｇｌｅ照会
http://dqn.sakusakutto.jp/2008/05/excel-vba.htmlなど

お礼

ありがとうございます！

ご回答を参考にし、以下のように書いてみました。
実行すると思った通りにできましたが
もし変な所があればご指摘くださいませ！ありがとうございました！

Sub sheetdel()
For Each sh In Worksheets
If sh.Name <> "Sheet1" And sh.Name <> "Sheet2" And sh.Name <> "Sheet3" And sh.Name <> "Sheet4" Then
sh.Select
If Range("B13") = "" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
End If
Next
End Sub

回答No.1

keithin

やるべき事を整理して，その通り作動するマクロを淡々と記述するだけのことです。
１）シートを巡回する
２）シート名を検査して，残すべきシートならそのシートはパスする
３）所定の文字列を含むセルを検索する
４）無ければシートを削除する

sub macro1()
　dim w as worksheet
　dim h as range

　for each w in worksheets
　　if w.name = "Sheet1" or w.name = "Sheet2" then
　　　'do nothing
　　else
　　　set h = w.cells.find(what:="ある文字列")　’必要に応じて検索のオプションを正しく設定
　　　if h is nothing then
　　　　application.displayalerts = false
　　　　w.delete
　　　　application.displayalerts = true
　　　end if
　　end if
　next
end sub

お礼

ありがとうございます！

３）の所定の文字列を含むセルを検索は
意図したものとは少し違いましたが
全体的に参考になりました！！！
ありがとうございました