Как правильно задать условие?

[Deja-vu]

Здравствуйте!
Помогите советом, пожалуйста, в данном деле.

Есть Excel, в шести столбцах записаны разные данные по ячейкам... Я хочу выбрать столбцы (для этого, допустим, в какой-то ячейке написать к примеру, ACD либо BE, зависит от того, сколько и какие столбцы я хочу выбрать, вариантов же много) и задать поиск одинаковых значений вплоть до строки 1000. Причем, значения будут состоять (в случае BE, например) из:
Строка 1: Ячейка B1+ Ячейка E1
Строка 2: Ячейка B2+ Ячейка E2.... и так далее.

В чем я торможу (в силу того, что я простой любитель), так это в том, что не понимаю, как реализовать, чтобы сравнивались строки только в тех столбцах, которые выберу я, а не в жестко заданных...?
Сравнить, допустим ячейки в A1 + С1 на предмет их соответствия A2 + С2 я могу, но только задав конкретно столбцы в самом коде... а как сделать, чтобы сравнивать ячейки именно в тех столбцах, которые я выберу?

[GSerg]

А каким образом ты их выбираешь?

[Deja-vu]

GSerg
Привет! Да мне подойдет и самый простой способ... Например, в какой нибудь ячейке (допустим, R10) напишу буквы, соответствующие столбцам, вот так: ACE (буквы трех столбцов, по которым я хочу искать).

[lord0n]

через мид отделяй буквы и делый что нужно
еще можно через сплит - надежнее (но каждый столбик придется отделять пробелом(или еще чем нить): 'A B C')

[Deja-vu]

lord0n
Спасибо за совет!
А как мне саму проверку сделать?
Ведь я могу выбрать 2 столбца для проверки, а могу и 10 столбцов.
Проверка же выглядит так:
Если A1 + B1 + C1 = A2 + B2 + C2
Я заранее не знаю, сколько столбцов выберу...

Сравнить жестко заданное количество столбцов я могу, допустим три столбца, а если мне надо сравнить четыре, а потом только два?

ПС: я дико извиняюсь... возник попутный вопрос. А как обратиться к ячейке по ее букве? Обычно я обращаюсь так: Cells(5, 3) но нужно вместо цифры 3 обратиться к "С"...

[Avtopic]

1. Что-то типа этого:

Dim A1, A2

For i = 1 To 10 ‘или сколько надо
If Cells(1, i) = “выбрано для проверки” Then A1 = A1 + Cells(1, i)
Next i

For i = 1 To 10
If Cells(1, i) = “выбрано для проверки” Then A2 = A2 + Cells(1, i)
Next i

If A1 = A2 Then …

2. Если обязательно буквы использовать, то может поможет конструкция типа этого:

Dim s
s = Chr(67)
Range(s & "5") =...

только, уверен это не хороший вариант.

[Deja-vu]

Avtopic
Спасибо большое, думаю, теперь получится!