1.利用自带的columns函数

如Columns(27).Address表示27列的地址，也就是"$AA:$AA"

2.使用split函数

按照字符"$"进行拆分得到数组，索引为2的就是我们需要的列字母

Function ColLetter(Num As Long) As StringColLetter = Split(Columns(Num).Address, "$")(2)
End Function

举例：Split(Columns(27).Address, "$")(2) 的结果是 AA