Сравнение нескольких ячеек с одной

[Makintosh_87]

Здравствуйте. Помогите пожалуйста составить свою функцию для Excel с помощью VBA. Задача такая: Нужно содержимое каждой из 20 ячеек(эти ячейки находятся в разных частях листа) сравнить с содержимым главной ячейки. И в зависимости от того, с какой из 20 ячеек совпадёт главная ячейка, выполнить определённое действие.

Можно было бы объявить в функции 20 переменных и главную ячейку. И потом просто написать 20 конструкций if...Then. А в самом листе просто присвоить нужные ячейки этим 20 переменным. Но получится слишком громоздко. Посоветуйте что нибудь попроще.

Заранее спасибо!

[vikttur]

Проще - если в расположении ячеек есть какая-нибудь логика, последовательность...

[Aent]

Пример для 4-х несмежных ячеек. "Главная" A1.

Public Sub test()
   Dim ur As Range
   Dim r As Variant
   Dim i As Long
   Set ur = Application.Union([B1], [C2], [D3], [D7])
   i = 1
   For Each r In ur
       If [A1] = r Then
           Exit For
       Else
           i = i + 1
       End If
   Next r
   If i > ur.Cells.Count Then
      Debug.Print "Нет совпадений"
   Else
       Select Case i
           Case 1
               Debug.Print "совпадение в 1-й ячейке"
           Case 2
               Debug.Print "совпадение во 2-й ячейке"
           Case 3
               Debug.Print "совпадение в 3-й ячейке"
           Case 4
               Debug.Print "совпадение в 4-й ячейке"
       End Select
   End If
End Sub