エクセルVBA 特定文字以外の行削除など他

質問

こんにちは。

エクセルのマクロについて質問です。
マクロ自体も初心者です。

画像のようなデータがあり、
マクロを使って実行後（赤枠で囲まれた）のようにマクロを組みたいです。

マクロを記録で手動でやってみたのですが、特定文字のある行以外を削除が
できなく困っております。

手順としては、
(1)B列を削除
(2)1行目に行挿入
(3)B1とC1をセル結合
(4)D1とE1をセル結合
(5)1行目だけタイトルを入れます。
A1：送り状NO
B1（C1）：住所
D1（E1）：お客様名
F1：到着日
G1：個口数
H1：案件
(6)添付画像のように「株式会社　ＡＢＣ」の「ＡＢＣ」を含んでいる行以外を削除

そして、可能であれば(7)として保存もしくは別名保存でxlsx形式で保存を行いたいです。
保存先は、実行前のデータが置いてある場所、もしくは、デスクトップでお願いしたいです。
補足：実行前のデータはxls形式のファイルです。

また可能であれば、マクロの実行をしている意味をコメントアウトで入れて頂けると
大変助かります。

周りに聞く人もおらず、困っております。

宜しくお願い致します。

回答No.2

eden3616 · ベストアンサー

あと少しですね。

(1)～(5)までのマクロ記録が出来たらマクロの記録を一度停止します。
「表示」→「マクロ」から記録されたマクロを選択して「編集」をクリックします。
以下のようなマクロのコードが記録されているとおもいます
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Sub Macro1()
'
' Macro1 Macro
'

'
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Rows("1:1").Select
（中略）
ActiveCell.FormulaR1C1 = "案件"
ActiveCell.Characters(1, 2).PhoneticCharacters = "アンケン"
Range("I1").Select
End Sub
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
上記コードの最終行「End Sub」の手前に以下のコードを追加してください。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
retu = "D"
word = InputBox(retu & "列に指定した文字が含まれていない行を削除します。" _
& vbCrLf & "検索する文字を入力してください。")
For i = Range("D" & "65536").End(xlUp).Row To 2 Step -1
If InStr(1, Range(retu & i).Value, word) = 0 Then
Rows(i).Delete
End If
Next i
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
「Microsoft Visual Vasic」のウィンドウを×で閉じてから再度「表示」→「マクロ」よりマクロを実行してください。
入力を求めるダイアログが表示されますので質問の例ですと「ABC」を入力して頂ければ
記録した(1)～(5)までと、対象のD列よりABCが含まれていない行が削除されます。

D列以外を検索対象としたい場合は追加したコードの「retu="D"」の部分を対象の列記号に置き換えてください。

また記録されたコードには不要な部分も含まれている場合が結構ありますので、無駄を省く（実行時間の短縮や効率化等）が適切に行えるようになればなお良いと思います。
記録されたコードを理解（勉強）して内容が把握できるようになればコードをいちから記述することも出来ますので頑張ってください。

お礼

丁寧なご回答ありがとうございました。
すごく助かりました。

贅沢を言わせて頂くと入力するのではなく、
決まった文字列をマクロ上に入れておいて削除する方法も知りたいです＾＾
もしお時間があるようでしたら、ご回答頂けたらなぁと思います。

ありがとうございました。

また回答No1の方もありがとうございました。
知りたい内容は回答No2の方でしたので、
回答No2の方をベストアンサーにさせて頂きます。

回答No.1

kuma56

（１）から（５）までができているんなら、あとは簡単じゃないのかな？
（６）は最期じゃなくても、実行前のデータの段階で他のデータを削除しても（１）から（５）の実行には影響はないんじゃないかな？
だとしたら、コメントボックスでもどこかのセルでもいいから、残すべき対象の「株式会社　ABC」と入力しておいて、J列などに、それとデータの会社名がイコールなら 1 、違えば 0 のような計算式を入れてやり、それをキーにソートして、J列が 0 のデータだけを削除してから、（１）から（５）の実行・・・・・・だったら、自力でマクロが組めるだろうし解説もいらんのじゃないかなぁ？

お礼

ありがとうございました。
色々勉強したいと思います＾＾

補足

ご回答ありがとうございます。
>J列などに、それとデータの会社名がイコールなら 1 、違えば >0 のような計算式を入れてやり、それをキーにソートして、J列>が 0 のデータだけを削除してから、（１）から（５）の実行・・・・・・
丁寧に教えてくださってありがとうございます。
ですが、文章は理解できますが、上記のやり方がわかりません。。
関数でやるんですよね？
その関数自体というか、それもわからないので、どうしようもないのです。

お手数お掛けしました。