Буквы в цифры

[gamaiunov_alex]

Часто бывает, что нумерацию столбцов (A-Z) нужно указывать именно буквами, в то время как производятся вычисления и действия с переменными номеров столбцов. то есть нужно как-то из цифр сделать букву, что бы обратиться к столбцу (ячейке). Можно ли как-то конвертировать туда-обратно?
В моем конкретном случае нужно обратиться к множеству поочередных столбцов, в цикл загоняю числа и в теле просто меняю нужный мне атрибут. Но обратиться с столбцу можно только через букву
xlWS.Columns("С:С").ColumnWidth = 10
Какие выходы?
Спасибо

[VictorM]

Какие выходы?

xlWS.Columns(3).ColumnWidth = 10

[doober]

Возможно пригодится в нелегком познании

Function ConvertToInteger(ByVal lcAlpha As String) As Integer
       Select Case Len(lcAlpha)
       Case 1
         ConvertToInteger = (Asc(lcAlpha) - 64)
        Case 2
        ConvertToInteger = 26 * (Asc(Mid(lcAlpha, 1, 1)) - 64) + ((Asc(Mid(lcAlpha, 2, 1)) - 64))
        End Select
           
End Function


Public Function ExcelColName(ByVal Col As Integer) As String
        If Col < 0 And Col > 256 Then
            Exit Function
        End If
        Dim i As Integer
        Dim r As Integer
        Dim S As String
        If Col <= 26 Then
            S = Chr(Col + 64)
        Else
            r = Col Mod 26
            i = (Col \ 26)
            If r = 0 Then
                r = 26
                i = i - 1
            End If
            S = Chr(i + 64) & Chr(r + 64)
        End If
        ExcelColName = S
    End Function

[IgorGO]

Но обратиться с столбцу можно только через букву

трудно с Вами спорить "с начала было слово" буквы появились потом...
а вот несколько способов обращения к столбцу С (начиная с твердо освоенного Вами).

Sub PaintC()
  Columns("C:C").Interior.Color = RGB(255, 0, 0)
  MsgBox "Красный видите?"
  Columns(3).Interior.Color = RGB(0, 255, 0)
  MsgBox "Зеленый видите?"
  Range("C1").EntireColumn.Interior.Color = RGB(0, 0, 255)
  MsgBox "Синий видите? заодно и монитор проверили..."
End Sub

[SAS888]

Возможно, что речь идет о работе с группой столбцов. Например, выделить столбцы "C:H" через стиль A1 можно так:

Columns("C:H").Select

или так:

[C:H].Select

но если известны номера столбцов, либо эти номера вообще переменные, то можно воспользоваться таким способом:

x = 3: y = 8
Range(Cells(1, x), Cells(1, y)).EntireColumn.Select

[gamaiunov_alex]

Больше спасибо всем за ответы.