VBAについて質問です。

aiomockさん
下記のデータでやってみましたが、C2の行がきちんと削除できましたが…。

C1:あい
C2:あいうえお
C3:あ
C4:い
　　↓
C1:あい
C2:あ
C3:い

注）もしC1とC2に「あいうえお」が含まれると両方共に削除されます。
　　最初に見つかった行だけを削除するということでしょうか?

私の場合

C1:あいうえおかきくけこ
C2：あいうえお

C1:あいうえお

となりました。

後本当に申し訳ないのですが、先ほど実際のデータで行ったところ削除できないものが結構ありました。
削除したいデータが長いものであるからか、原因はわからないのですが。。。
原因が考えられるようでしたら教えていただければと思います。

C列に入っていて削除出来なかったデータ　例です。

★＝セルに入っているデータ

★ヤフーケツサイ　Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフ－ケツサ*"
★ジャパンネット銀行　本店営業部　普通預金　212a330　ああああ　あああ（依頼人名：ああああ　あああ Columns("C:C").AutoFilter Field:=1, Criteria1:="=*（依頼人名：ああああ　あああ*"
★振込手数料（内消費税 ￥7） Columns("C:C").AutoFilter Field:=1, Criteria1:="=*振込手数料（内消費税*"

うまくできませんでした。。。


以下のように組んでいたのですが、これは間違いでしょうか？？？

Dim 検索結果 As Range
Rows("1:1").Insert
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフ－ケツサ*"
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*（依頼人名：あああ　ああ゛*"
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*振込手数料（内消費税*"
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*カ－ド手数料（内*"
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*カ－ド出金*"
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*イ－バンクマネ－カ－ド（ゴ－ルド）会費*"
Set 検索結果 = Columns("C:C").SpecialCells(xlCellTypeVisible)
AutoFilterMode = False
検索結果.EntireRow.Delete

お手数をおかけしますがご回答頂ければと思います。
お待ちしております。。。

aiomock様
削除はフィルター１つずつで行わないとだめです。
以下のように修正してみました。
※"=*依頼人名：ああああ　あああ*"　は違っているようで勝手に訂正してあります。
※また、AutoFilter 部分も多少手直ししてあります。

一応私のテストでは上手くいっているようです。
確認してください。

Sub 抽出行削除()
　Dim 検索データ　As Variant
　Dim 検索キー　　As Variant
　Dim 検索結果　　As Range

　検索データ = Array("=*ヤフーケツサイ*", _
　　　　　　　　　　　"=*依頼人名：ああああ　あああ*", _
　　　　　　　　　　　"=*振込手数料（内消費税*", _
　　　　　　　　　　　"=*カ－ド手数料（内*", _
　　　　　　　　　　　"=*カ－ド出金*", _
　　　　　　　　　　　"=*イ－バンクマネ－カ－ド（ゴ－ルド）会費*")
　For Each 検索キー In 検索データ
　　Rows("1:1").Insert
　　Columns("C:C").AutoFilter Field:=1, Criteria1:=検索キー, Operator:=xlAnd
　　Set 検索結果 = Columns("C:C").SpecialCells(xlCellTypeVisible)
　　ActiveSheet.AutoFilterMode = False
　　検索結果.EntireRow.Delete
　Next
End Sub

すいません。実行してみましたがうまくいきませんでした。。
私の環境の問題かもしれないです。。

Dim 検索結果 As Range
　Rows("1:1").Insert
　Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*"
　Set 検索結果 = Columns("C:C").SpecialCells(xlCellTypeVisible)
　AutoFilterMode = False
　検索結果.EntireRow.Delete

これででしたら、ヤフーケツサイが削除出来ました。
最後に頂いたプログラムではデータの状態は変わらずでした。

jccrh1 さんの所で動くとなるとデータが若干違っていたりするのでしょうか。。

aiomock様
下記のように変更してみてください。

　Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*"
　　　　　　　　　↓
　Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*" Operator:=xlAnd

jccrh1　さん

ご回答ありがとうございます。

Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*" Operator:=xlAnd
ですと構文エラーになってしまいます。

また先ほど削除出来ていたヤフーケツサイが削除出来なくなりました。。
非常に面倒なことになっています。。お手数をおかけします。。

このまま　jccrh1　さん　に質問を回答していただくのも申し訳ないので、
私の環境にあったコードを探して再度質問してみようと思います。

自分で質問を終了させておきながら申し訳ありません。。。

本当に申し訳ないのですが、構文エラーについてわかりましたら教えていただければと思います。

私の方でも変更して見たいと思います。

Dim 検索結果 As Range
　Rows("1:1").Insert
　Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*"　Operator:=xlAnd
　Set 検索結果 = Columns("C:C").SpecialCells(xlCellTypeVisible)
　AutoFilterMode = False
　検索結果.EntireRow.Delete

で

Operator:=xlAnd

が構文エラーでした。。

横から失礼。

Operator:=xlAnd は抽出条件が複数存在するときにだけ使います。

例えば、「ヤフー」と「楽天」の両方が含まれているものを抽出
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフー*", Operator:=xlAnd, Criteria2:="=*楽天*"
例えば、「ヤフー」と「楽天」のいずれか一方が含まれているものを抽出
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフー*", Operator:=xlOr, Criteria2:="=*楽天*"
他にもありますが、割愛します。

従って、１回あたり１つだけの時には不要です。書いてしまうと、
ExcelVBAは「続きがあるはずなのに存在しないぞ！　構文エラーだ！」になります。


ここから雑談。
それにしても昨日の質問ラッシュはすごかったですね。
返事するだけでも大変だったでしょうに・・・。
一発目の回答で内容も確定しないうちから終了して、いるかまで連発して、
あせりすぎだと思いますよ。失礼ながら、一度ためさせていただきましたが・・・。
（たった４行の説明抜きの回答がありましたでしょ？
　その前の時に５分差で回答は後からオープンなんてのがあったので、
　気になって試させていただいたのです。）

確かに、
「別の質問をする際には以前の質問を終了しておく」ってのは１つの礼儀ですけど、
そもそも質問文をよく吟味していれば、質問数は半分以下に減らせたはずですし、
より深い説明と、じっくりテストする余裕も得られた事でしょう。

そして、その内容と労に応じてポイント配分をかえたり、
いるかの有無を決めたりしていただく時間も取れたと思います。
（最小ゼロポイントから最大100ポイントくらいの間で十分かと思います。
　予想外に気に入った時だけ200にするとかすれば、さらにGood。
　たまに多めにしても今の乱発よりは結果的に少なくなると思います。）

年末も近づき、いろいろ大変かと思いますが、くれぐれも、ご無理はなさらぬよう・・・。
（と言いつつ私は、ここ３日で5時間くらいしか寝てなかったりするのだが・・・。）

【aiomock様】
Operator:=xlAnd の 前に　,(カンマ)が抜けています。

　Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*"　Operator:=xlAnd
↓
Columns("C:C").AutoFilter Field:=1, Criteria1:="=*ヤフーケツサ*", Operator:=xlAnd

【kn1967様】
私も最初「Operator:=xlAnd」を指定しなかったのですが、結果がおかしいことがあり指定して正常に動作しました。

ご回答ありがとうございます。無事実行できました。
私の質問に最後までご回答いただいて本当にありがとうございます＾＾。

kn1967さん
ご指摘ありがとうございます。昨日は質問をかなり多くしてしまいました。
各目的（機能）を達成したいと思い、目的ごとに質問をしたのですが、
kn1967さんの　より深い説明と、じっくりテストの余裕　まさにその通りだと思います。

今までは目的を達成することだけに、意識が集中していたのですが、
いろんな人たちの知識をどれだけ吸収して活用できるか
そこの部分にもっと意識を働かせる事は今後プログラムをしていく中で非常に重要なことではないかと気づきました。
特にVBAに関しては初心者ですのでより多くの知識を今後得られるように、よりはてなを活用していきたいと思います。

いつもご指摘本当にありがとうございます。また一つ気づけたこと本当に感謝しております。

＞(カンマ)が抜けています。

スミマセン。本日再確認したところ、問題ありませんでした。

Operatorの有無による挙動の違いは気になるところですが、
軽く検索してみても、その違いは判りませんでした。
また、機会があれば探ってみたいと思います。
ありがとうございました。そして、お手数おかけしました。＞ jccrh1 さん