Мокрос Excel VBA цикл

[MrMorozko]

Суть, есть два столбца в первом номера телефонов во втором текст содержащий слова и разные номера телефонов, записал макрос поиска в тексте значения одной ячейки а как мне сделать так что бы мой макрос прошелся по всему столбцу и проверил эти номера во всем тексте второго столбца.
Sub Format()
'
' Format макрос
'
' Сочетание клавиш: Ctrl+f
'
Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="=$A$3", _
TextOperator:=xlContains
Selection.FormatConditions(Selectio n.FormatConditions.Count).SetFirstP riority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Inter ior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopI fTrue = False
End Sub


То что выделено красным это ячейка содержащая номер телефона

[DiemonStar]

String:="=$A$3"

замените на

String:=Range("$A$3")

[MrMorozko]

Сообщение от DiemonStar

String:="=$A$3"

замените на

String:=Range("$A$3")

Увы, попробовал String:=Range("$A$3:$A$1000"") он выделяет каждую ячейку с текстом содержащий номер телефона вторго столбца есть там совпадения или же нет

[MrMorozko]

Или же для обзора мне делать так xD все тысячу ячеек

Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="=$A$3", _
TextOperator:=xlContains
Selection.FormatConditions(Selectio n.FormatConditions.Count).SetFirstP riority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="=$A$5", _
TextOperator:=xlContains
Selection.FormatConditions(Selectio n.FormatConditions.Count).SetFirstP riority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Inter ior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="=$A$3", _
TextOperator:=xlContains
Selection.FormatConditions(Selectio n.FormatConditions.Count).SetFirstP riority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
Selection.FormatConditions(1).StopI fTrue = False
End Sub

[MrMorozko]

Конечто же это полный бред) Как бы это упростить)

[DiemonStar]

прицепите файл с примером данных. неохота играть в угадайку

[MrMorozko]

надо как то реализовать так что бы сел человек открыл документ скопировал из ворда обьявления нажал сочетание клавиш и увидел выделенные обьявления что бы не звонить туда так как это уже контора недвижемости, выделилось и пошел прозванивать, еще к тому же первый столбик с номерами контор может пополняться дальше вниз)