Преобразовать номер столбца в букву столбца в VBA

Question

Я использую следующий код VBA для вставки номера столбца из Ячейка C1 в Ячейка B1 :

Sub AdressColumn()
Sheet1.Range("B1").Value = Sheet1.Range("C1").Column
End Sub

В этом случае результат в моей таблице выглядит следующим образом:

    A     B    C
1         3
2
3

Пока все это прекрасно работает.

---

Однако вместо вставки 3 я бы предпочел вставить букву столбца. В этом случае буква C должна быть вставлена ​​в Ячейку B1 .

Я также попытался использовать формулу здесь , но я не смог заставить ее работать, так как в моем случае я не использую данное число. Вместо этого я ссылаюсь на столбец с функцией .Column.

Что мне нужно изменить в моей формуле, чтобы она заработала?

Answer 1

Разделить $ на абсолютный адрес ячейки.

Sub AdressColumn()
    Sheet1.Range("B1").Value = split(Sheet1.Range("C1").address, "$")(1)
End Sub

... или разделить двоеточие из относительного полного адреса столбца.

Sub AdressColumn()
    Sheet1.Range("B2").Value = Split(Sheet1.Range("C1").EntireColumn.Address(0, 0), ":")(0)
End Sub