VBA идет вниз по столбцу, чтобы проверить строковое значение?

Question

For Each c In Worksheets("Sheet1").Columns(1)
      If c.Value = "StringIWant" Then

Привет, я новичок в vba, и эта часть кода выдает мне ошибку. Я просто хочу перейти вниз к столбцу 1, скопировать и вставить определенный блок ячеек рядом с ним, если значение строкиМатчи.Любая помощь будет оценена спасибо

Answer 1

Как отмечает @BigBen, вам действительно следует ограничить область действия вашего цикла.Вы действительно должны пройти через все 1 миллион + строк, которые существуют в любом данном столбце?Или вам на самом деле нужно вернуться к последней использованной строке?

Это то же самое, что и цикл последней строки.

Option Explicit

Sub Test()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")

Dim c As Range, LR As Long
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

For Each c In ws.Range("A2:A" & LR)
    If c = "StringIWant" Then
        'Do What?
    End If
Next c

End Sub