投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。

凜さんの投稿

(投稿ID: 5146)

いつもお世話になっております。
教えて頂いた事を復習しつつ、下記のようなマクロを書いてみました。
いちお動作結果は問題ないようでしたが、気付かない不具合があるのかと不安になりました。ご教示頂けますでしょうか。
よろしくお願いします。
Sub hanako()

Dim gyo
For gyo = 10 To 35
    If Range("D" & gyo).Value = "ぬいぐるみ" Then
    
    Else
        If Range("C" & gyo).Value = "" Then
         Exit For
        Else
         Rows(gyo & ":" & gyo).Select
         Selection.Delete shift:=xlUp
         gyo = gyo - 1
        End If
    End If
    
Next

End Sub

2021/06/20 07:54