Sub magic()

    Dim a, b, c As Range
    
    Set a = Range("A1:A30")

    For Each b In a
                    
        If b.Value2 = "Оригинальный текст" Then Cells(b.Row, "B") = "нашлось"
        If b.Value2 = "Тут что-то другое" Then Cells(b.Row, "C") = "тоже нашлось"
        If b.Value2 = "А вот тут тоже текст" Then Cells(b.Row, "D") = "и это нашлось, но это же тоже Оригинальный текст"
    
    Next

    Set a = Nothing

    MsgBox "Все дословные совпадения найдены"

Sub color_2()

    Dim rng As Range
    Dim rng2 As Range
    
    Set rng = Range("A1:A30")
    rng.EntireRow.Interior.ColorIndex = -4142
    For Each rng2 In rng
        
        If rng2.Value2 = "раз" Then Cells(rng2.Row, 1).EntireRow.Interior.ColorIndex = 8
        If rng2.Value2 = "два" Then Cells(rng2.Row, 1).EntireRow.Interior.ColorIndex = 6
        
        If rng2.Value2 = "раз" Then Range("B1:B30") = "1"
        If rng2.Value2 = "два" Then Range("B1:B30") = "2"
    Next
    Set rng = Nothing

End Sub

Sub m()
Dim i, n As Long
Range("A1:A500, B1:B500").
For i, n = 1 To 5000
If Cells(i, 1) = Cells(i, n) Then 
If Cells(i, 2) = Cells(i, n) Then 
Next
End Sub