Цитата
окрасить ячейки на Лист1 в колонке F
Каждый город своим цветом
[vba]Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
Dim FoundTown As Range
Dim FAdr As String
Dim List_1 As Worksheet
Dim List_2 As Worksheet
Set List_1 = ThisWorkbook.Worksheets("Ëèñò1")
Set List_2 = ThisWorkbook.Worksheets("Ëèñò2")
iLastRow = List_1.Range("F1").End(xlDown).Row
List_1.Range("F1:F" & iLastRow).Interior.ColorIndex = 2
iLR = List_2.Range("A1").End(xlDown).Row
For i = 2 To iLR
Set FoundTown = List_1.Range("F1:F" & iLastRow).Find(List_2.Cells(i, "A"), , xlValues, xlWhole)
FAdr = FoundTown.Address
Do
FoundTown.Interior.ColorIndex = i + 1
Set FoundTown = List_1.Range("F1:F" & iLastRow).FindNext(FoundTown)
Loop While FoundTown.Address <> FAdr
Next
End Sub
[/vba]