Excel (VBA) макрос?

Можна ли задать несколько значений cifer3 и cifer4?
Я себе представляю это как то так:
cifer3 = 1 , 101 , 201
cifer4 = 100 , 200 , 300

Sub dubl()
Dim cifer1 As Long
Dim cifer2 As Long
Dim cifer3 As Long
Dim cifer4 As Long
cifer1 = 18
cifer2 = 30
cifer3 = 1
cifer4 = 100
For a = cifer3 To cifer4
If Cells(a, cifer1).Value <> "" And Cells(a, cifer2).Value <> 1 Then
For b = cifer3 To cifer4
If b <> a Then
If Cells(a, cifer1).Value = Cells(b, cifer1).Value Then
Cells(a, cifer1).Interior.ColorIndex = 4
Cells(b, cifer1).Interior.ColorIndex = 3
Cells(b, cifer2).Value = 1
Cells(a, cifer2).Value = 2
End If
End If
Next
End If
Next
end sub

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.