Буквы столбцов перевести в цифры

[Snekich]

исходные данные для работы макроса с таблицей заполняются в ячейках.
В частности в ячейках указываются БУКВЫ столбцов с которыми потом макрос должен работать. (Например: B )

А в самом макросе в некоторых действиях необходимо указывать порядковый номер столбца, либо "расстояние" между столбцами (количество столбцов между ячейками).

Например при работе автофильтра, указывается порядковый номер столбца для которого применяется автофильтр (автофильтр начинается со столбца А)
ActiveSheet.Range("$A$1:$z$100").Au toFilter Field:=2, Criteria1:="=значение*", Operator:=xlAnd

Или, например, в меня в одной из функций указывается ячейка и расстояние в столбцах до другой ячейке.
А в исходных данных у меня только "буквенные" обозначения двух этих ячеек т.е. мне зная столбцы надо узнать между ними "расстояние".

КАК зная букву узнать порядковый номер столбца, желательно что бы не было ограничений на количество столбцов (т.е. без прямого "ручного" присвоения заранее каждой букве соответствующую цифру.) ?

[EducatedFool]

Кое-что по теме есть здесь:
http://www.planetaexcel.ru/forum.php?thread_id=19063

Самый простой вариант (если открыта хоть одна книга):

Sub test2()
    буква$ = "AD"
    столбец = Range(буква$ & 1).Column
    MsgBox столбец
End Sub

Универсальный способ:

Sub test()
    буква$ = "AD"
    столбец = Val(Replace(Application.ConvertFormula("$" & буква$ & "1", xlA1, xlR1C1), "RC", ""))
    MsgBox столбец
End Sub

[nerv]

Sub io()
MsgBox Columns(1).Address '// По цифре букву
MsgBox Columns("A").Column '// По букве цифру
End Sub

А в самом макросе в некоторых действиях необходимо указывать порядковый номер столбца, либо "расстояние" между столбцами (количество столбцов между ячейками).

Порядковый номер столбца знать не обязательно. Можно использовать смещение

Sub io()
MsgBox Columns("A").Offset(, 2).Column '// Смещение от столбца А на два вправо
MsgBox Columns("A")(3).Column '// Тоже самое
End Sub

[Snekich]

Columns("A").Column
как раз то что надо!
Всем спасибо!