Получить значение ячейки из цикла

Question

Я хочу l oop столбец и удалить все строки, где слово в столбцах имеет "Vul" в качестве первых 3 символов.

Я создал это:

Sub DeleteRow()

Dim i As Long
Dim myValue As String
Dim myCel As String

With Sheets("template (2)")
    For i = 100000 To 1 Step -1
        myValue = Left(.Cells(i, "A"), 3)

        If myValue = "Vul " Then
            .Cells(i, "A").EntireRow.Delete
        End If
    Next i
End With

End Sub

Но эта строка: myValue = Left(.Cells(i, "A"), 3) неверна. Что я могу сделать, чтобы это работало?

Answer 1

Вы можете попробовать это:

For i = LastRow To FirstRow+1
    If Not IsError(Application.Match(Left(Sheet.Cells(i, "A"), 3), "Val", 0)) Then
            Sheet.Rows(i).Delete
   End If
Next i

Answer 2

Я сделал так:

Sub DeleteRows()
    Dim rng As Range, cell As Range
    Dim MyValue As String
Set rng = Range("A1:A400")

For Each cell In rng

        MyValue = Left(cell.Value, 3)


        If MyValue = "Vul" Then


            cell.EntireRow.Delete

        End If

Next cell


End Sub