VBA 特定の文字列ではない場合、行ごと削除したい。

Question

VBAよく分からないのですが、職場でお願いされてしまい、作成中です。

やりたいこと:
開始行は５行目で、AA列が「未完」とはいっていない場合、その行ごと削除したい。

つまづいているところ:
サンプルコードを見ながら作成してみましたが、
デバッグするとIf文を通っていません。
見直したほうが良いところをご指摘いただけますと助かります。

Sub remove()

Dim w1 = Worksheets("01_sheet")
Dim lastRow As Long
lastRow = w1.Rows.Count).End(xlUP).Row

Dim i

lastRow = Range("AA" & Rows.Count).End(xlUP).Row
For i = lastRow To 5 Step -1
If Not Range("AA").Text Like "未完"　Then
Rows(i).Delete
End If
Next

End Sub

Answer 1

添削します。

Dim w1 = Worksheets("01_sheet")

シートを選択すればよいだけなので

Worksheets("01_sheet").Select

lastRow = w1.Rows.Count).End(xlUP).Row

この行はエラーになりませんか？
とにかく、lastRowは下で新たに代入しており、この行は不要です。

If Not Range("AA").Text Like "未完"　Then

If Not Cells(i, "AA").Value Like "未完" Then

これで期待通り動くのではないかと思います。