VBA列号转为字母

一、第一种方法
1，编写函数

Function 返回字母(i As Integer) As String

If i >= 0 And i <= 26 Then '如果小于26，直接用chr函数

返回字母 = Chr(96 + i)

ElseIf i >= 27 And i <= 256 Then '如果大于26，拼接一下

返回字母 = Chr(96 + i \ 26) & Chr(96 + i Mod 26) 'i \ 26表示i整除26

End If

End Function

2，测试结果

Sub b()


 s = 返回字母(27)
 MsgBox s'显示aa


 End Sub
二、第二种方法
拆分单元格地址
Dim ss As String
ss = Split(ActiveSheet.Cells(1,5).Address(True, False), "$")(0)
ss是“E”