EXCELのマクロで繰り返しをする際

Question

###前提・実現したいこと
EXCELマクロを使って繰り返しの作業をする際に、A1が”あああ”を「含む文字ではなかったとき」に”あああ”を含む文字が出てくるように繰り返したい。
できることなら勉強のために説明も入れてくださると助かります。

説明が下手ですみません たとえば A3に(いいいあああ)というセルがあったとして A３は（あああ）という文字があるので、A1に来たときには削除しないという風にしたいです

###該当のソースコード

Do While Range("A1").Value <> "あああ"
      Range("1:1").Select
   Selection.Delete Shift:=xlUp
Loop

↓自作してみたが、ダメだったやつ
Do While Range("A1").Value Like <> "*あああ*"
      Range("1:1").Select
   Selection.Delete Shift:=xlUp
Loop

###補足情報(言語/FW/ツール等のバージョンなど)
EXCEL2010

Comments

[ttyp03]

「”あああ”を含む文字が出てくるように繰り返したい。 」の意味が良くわからないのですが。

[sugerShogo]

説明が下手ですみません
たとえば　A3に(いいいあああ)というセルがあったとして
C1は（あああ）という文字があるので、削除しないという風にしたいです

[ttyp03]

尚更わからなくなりました…。A3とC1の関係性が…？？？。要はシート全体から「あああ」を含まないセルを削除したいということ？

[sugerShogo]

間違えました
A3に(いいいあああ)というセルがあったとして A３には（あああ）という文字が含まれているので、削除しないという風にしたいです

Answer 1

質問の回答になっているかはわかりませんが、こんな感じで。
解説コメントつき。

Dim r As Long

' 検索開始行を1行目に設定
r = 1

' 検索対象セルに値がある間ループ
Do While Cells(r, 1) <> ""

    ' 検索対象セルに「あああ」を含んでいるか
    If InStr(Cells(r, 1).Value, "あああ") = 0 Then
        ' 含んでいない場合の処理
        
        ' 対象セルを選択状態に設定
        Cells(r, 1).Select
        ' 対象セルを削除
        Selection.Delete Shift:=xlUp
    Else
        ' 含んでいる場合は削除しないので対象セルを一つ下に進める
        r = r + 1
    End If
Loop

Comments

[sugerShogo]

わかりやすい解説ありがとうございました！

Answer 2

InStr関数というものがあります。
これはある文字列の中から特定の文字列を検索し、その位置を返すものです。

使用例：

 見つけた位置 = InStr(全体の文字列, 見つけたい文字列)

探している文字列が見つからなかった場合は0を返しますので、これを条件にループするとよいでしょう。

Do While InStr(Range("A1").Value, "あああ") = 0
    Range("1:1").Select
    Selection.Delete Shift:=xlUp
Loop

※これだけだと最後まで見つからなかった場合に無限ループになってしまいますのでご注意ください。

Comments

[sugerShogo]

説明が下手ですみません
たとえば　A3に(いいいあああ)というセルがあったとして
C1は（あああ）という文字があるので、削除しないときでも
Do While InStr(Range("A1").Value, "あああ") = 0
Range("1:1").Select
Selection.Delete Shift:=xlUp
Loop

を使えばできますでしょうか？

[jawa]

修正依頼の回答の通りであれば、先ほどのコードで問題ないと思います。

今回のコードでは、指定の文字が含まれない行は行削除され、残る行は上方向に詰められていきます。
```
Selection.Delete Shift:=xlUp
```

このため、A1、A2に"あああ"が含まれず、A3ではじめて"いいいあああ"のような"あああ"が含まれるセルが検出される場合は、最初A3だったセルがループ処理の３週目でA1まで上がってきて検索対象となり、ループ条件からはずれ、削除せずに処理を抜けることになります。

もし上記のようなチェックだけでなく、C1にも"あああ"が含まれないかチェックしたい（A列だけでなく複数列をチェックしたい）場合、現時点で行方向にしか行われていないループ処理の他に、列方向へのループ処理等が必要になると思いますが。。

[sugerShogo]

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