VBA列号转为字母

原创已于 2023-05-15 21:24:39 修改 · 2.2k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#经验分享

于 2023-05-15 21:10:58 首次发布

VBA技巧专栏收录该内容

1 篇文章

订阅专栏

文章介绍了两种方法，一是使用VB函数根据输入数字返回对应的字母，通过Chr函数和条件判断实现。二是演示如何拆分Excel单元格地址获取列标签，以ActiveCell为例，提取出字母部分。

一、第一种方法
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”