к формуле добавить формулу

[27102014]

Function БукваСтолбца(ByVal col As Long) As String
On Error Resume Next
БукваСтолбца = Application.ConvertFormula("r1c" & col, xlR1C1, xlA1)
БукваСтолбца = Replace(Replace(Mid(БукваСтолбца, 2), "$", ""), "1", "")
End Function

нашел где-то в интернете, очень помогает при написании макросов, если нужно там работать с формулами

[IgorGO]

Function БукваСтолбца(ByVal col As Long) As String
БукваСтолбца = Mid(Columns(col).Address, 2, InStr(Columns(col).Address, ":") - 2)
End Function

[Казанский]

Сообщение от 27102014

не нравится мне стиль ячеек R1C1

Напрасно. В большинстве случаев формула в стиле R1C1 имеет одинаковый вид для разных строк (столбцов), что избавляет от необходимости подставлять в формулу значения переменных в коде.
А если все же есть такая необходимость, то не нужно преобразовывать номера столбцов в буквы.
Никто не запрещает Вам отлаживать формулы в стиле А1, но в коде использовать метод range.FormulaR1C1 .

[Hugo121]

Можно и как-то так:

Sub test()
Dim i&, a(3)
For i = 0 To UBound(a)
a(i) = Chr(i + 65) & "1:" & Chr(i + 65) & "5"
Next
MsgBox "=СУММ('Лист1'!" & Join(a, ") + СУММ('Лист1'!") & ")"
End Sub