excel 何種類のシートから必要のシート以外削除

質問

少し困っているので、質問させて頂きます。
毎日excelで発注ファイルで送られてきて、その発注ファイル（品名、数量）を見ながら、別の部品ファイル（sheet名が品名）に、いらないsheetを削除し、数量をいれて統合しているのが現状です。
部品ファイルの所の数量は=VLOOKUP関数をいれてあるのですぐにできるのですが、100種類以上ある品名シートを削除するのは正直時間が掛かります。
発注ファイルの品名を見て、部品ファイルの必要なsheetだけ残したいのですが、どなたかよい方法を教えて頂けないでしょうか?お願いします。

例を下に書きます。

●部品ファイル

　種類（sheet名）
　ランクル・カローラ・セルシオ・ヴィッツ・プリウス ・プラド・ノア・ハイエース

●発注ファイル

　　　A列　　　　　　　　　B列
　　　品名　　　　　　　　数量（部品ファイルの数量のセルに=VLOOKUP関数を入れてあります。）
　　　カローラ　　　　　　 2
　　　ヴィッツ　　　　　　　4　
プリウス　　　　　　　1
ノア　　　　　　　　　　6

　発注ファイルが送られてきて、発注ファイルの品名を見て、部品ファイルのsheet名が
　ランクル・セルシオ・プラド・ハイエースのsheetが削除されている状態にしたいです。
　宜しくお願い致します。

回答No.3

tom04 · ベストアンサー

No.2です！
たびたびごめんなさい。

前回のコードの

For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Str = Str & wS.Cells(i, "A") & ","
buf = Left(Str, Len(Str) - 1)
myArray = Split(buf, ",")
Next i

の5行を

For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Str = Str & wS.Cells(i, "A") & ","
Next i
buf = Left(Str, Len(Str) - 1)
myArray = Split(buf, ",")

のように5行目を3行目に入れ替えてください。

前回のコードでも動くと思いますが、
厳密にいえば後者のコードが正解です。

何度も失礼しました。m(_ _)m

お礼

本当にありがとうございます。
助かります。マクロを実行したことがないのですが、すごく勉強になりました。
プログラムコードをここまで書いて頂き感謝いたします。
プロシージャーの外では無効です。とエラーが出てしまうのですが、もう少しの所だと思います。
このコードを参考に解決していきたいです。
ありがとうございました。

回答No.2

tom04

こんばんは！

Sheetそのものが削除されますが、それでも良いのですよね？
VBAになってしまいますが、一例です。

前提条件として
（1）●発注ファイル　は　【発注】（前後の【　】は不要です）　というSheet名にして
100Sheet以上ある「部品ファイル」に追加しておいてください。
（最初でも最後でもどこでも構いません）
（2）発注　SheetのA列に残したいSheet名の部品が羅列してあり、2行目以降にデータがあるとします。

「部品ファイル」を開き　→　Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sheet削除() 'この行から
Dim i As Long, k As Long, str As String, buf As String
Dim wS As Worksheet, myFlg As Boolean, myArray

Set wS = Worksheets("発注") '←必ず「発注」というSheetを追加！
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
str = str & wS.Cells(i, "A") & ","
buf = Left(str, Len(str) - 1)
myArray = Split(buf, ",")
Next i

Application.DisplayAlerts = False
For i = Worksheets.Count To 1 Step -1
myFlg = False
For k = 0 To UBound(myArray)
If Worksheets(i).Name = myArray(k) Then
myFlg = True
Exit For
End If
Next k
If Worksheets(i).Name <> "発注" Then
If myFlg = False Then
Worksheets(i).Delete
End If
End If
Next i
Application.DisplayAlerts = True
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、
別ファイルでマクロを試してみてください。

（例）ファイルが保存してあるフォルダ内（ドキュメント等）内で同じExcelファイルをコピー＆ペーストし
それを利用するなど・・・m(_ _)m

回答No.1

yosifuji20

マクロを使えば可能です。

考え方としては、削除したい名前が入っているセルを読んで、その名前に等しいsheetを削除するということを自動的に実行するということです。
ただし、常に同じsheet名を削除するのはマクロでも簡単ですが、その都度異なるsheet名を読み取って削除するというのはかなり慣れた人でないと難しいと思います。
どなたかEXCELのマクロ言語VBAに詳しい人に相談される方がよいと思います。

一番簡単なのは、ランクル・カローラ・セルシオ・ヴィッツ・プリウス ・プラド・ノア・ハイエースの現実のsheetを削除するマクロを記録して、それにそれぞれランクル・カローラ・セルシオ・ヴィッツ・プリウス ・プラド・ノア・ハイエースというマクロ名を付けることです。
必要なsheet名に相当するマクロを実行すればそのsheetだけ削除することができます。
これはマクロの記録で作ることができます。

お礼

ありがとございます。
マクロの勉強を頑張っていきたいと思います。
とても参考にさせていただきました。
ありがとうございました。