Как применить макрос в excel на всю таблицу

Question

У меня есть макрос

Sub macros1()
Range("A2:C4").Find("1").Next = "lol"
End Sub

Он находит в табличке единицы и на соседней ячейке пишет lol Но этот макрос работает только на 1 ячейку, а не для всех в таблице Что делать?

Answer 1

Sub macros1()
    Dim c As Range
    
    For Each c In Range("A2:C4")
        If c.Value = 1 Then c.Offset(, 1).Value = "lol"
    Next c
End Sub