ExcelVBA 宏 将数字转换为列号/列字母/列名 数字字母转换

已于 2022-07-15 09:21:29 修改
阅读量7.7k 收藏 14
点赞数 7
文章标签： vba excel
于 2021-10-11 09:41:35 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_58444518/article/details/120696925
版权

1.利用自带的columns函数

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

2.使用split函数

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

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

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

今夕乃何夕
关注
  • 7
    点赞
  • 踩
  • 14
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
VBA在Excel中字母、数字的相互转化
BeijixingVBA的博客
05-02 1627
Excel表中的行以数字展示，列用字母展示，如何将字母与数字之间相互转化，VBA有办法。
vba_获取使用行数和列数
11-29
vba_获取使用行数和列数,vba_获取使用行数和列数,vba_获取使用行数和列数
VBA中将 Excel 列号转换为字母字符
07-17
VBA中将 Excel 列号转换为字母字符
将数字转换成EXCEL列字母
05-09
VBA编写的将数字转换成EXCEL的列字母，没有EXCEL中列数的限制，相当于数字进制。 可以使用在VB中。
VBA列号转为字母
weixin_41716390的博客
05-15 1393
VBA列号转为字母 数字转为字母
Excel 列号转换为字母(VBA)
weixin_30546189的博客
07-09 955
使用下列算法可以实现“ConvertToLetter”功能： 列号除以 27，然后将得到的整数赋值给变量“i”。列号减去 i*26，然后将所得结果赋值给变量“j”。将得到的整数值转换为其对应的字母字符，“i”和“j”的取值范围将分别为 0 至 26。 例如：列号为 30。 列号除以 27：30 / 27 = 1.1111，由“Int”函数四舍五入后得“1”。i = 1下一个列号 - (i ...
Excel VBA---将列对应数字转换为字母
weixin_34224941的博客
05-21 559
Private Function GetColName(ByVal y As Integer) As String          Dim z     As Integer          Dim i     As Integer          Dim n(25)     As String              For i = 0 To 25                  n(i...
VBA列数字与字母互换
goldengod的专栏
01-31 6848
vba列数字与字母互换: 方案一:速度:快 Function NumToStr(ByVal Num As Long) As String   '数字转字母     Dim M As Long     If Num     Do         M = Num Mod 26         If M = 0 Then M = 26         NumToStr
VBA实现数字列与字母列的相互转化
热门推荐
gold_star的专栏
09-13 2万+
VBA实现数字列与字母列的相互转化的方法
Excel·VBA数组行列转换函数
hhhhh_51的博客
05-11 3326
1，二维数组与一维嵌套数组互相转换函数；2，二维数组转换为指定行数/列数的函数；3，数组行列转置函数
VBA中数字换算成列的英文字母方法
sayu3368的博客
07-03 1045
网上看到很多方法，但是最简单的感觉还是利用Cells.Address这个方法来加工得到英文字母。 毕竟是Excel里面的东西，怎么简单怎么来。
Excel 应用宏VBA 对每列数据分别降序/升序
08-25
Excel 应用宏VBA 对每列数据分别降序/升序
VBA宏脚本自动拆分EXCEL表
03-31
按指定的列和行，拆分表。 例如：一个综合性的excel报表，第1行C列是省份，而且此综合性报表有多个sheet要拆分，想要...获取数量列号的英文字母、判断字符是否是英文、替换非汉字\数字\字母的字符、判断文件是否存在。
在Excel中如何将姓名转换成拼音大写字母.docx
12-18
在Excel中，将姓名转换成拼音大写字母是一种常见的操作，例如将“张三”转换成“ZHANGSAN”。这种操作可以通过使用VBA宏来实现。在VBA宏中，我们可以使用一个自定义函数来将汉字转换成拼音大写字母。 首先，我们...
EXCEL VBA生成随机数据列并转换格式为数值源代码
12-07
'测试用例：新建一个EXCEL表格文件，工作表1为“Sheet1”，工作表2为“Sheet2” '鼠标右键点击工作表名Sheet1，弹出菜单中选择“查看代码(V)” '弹出Visual Basic For Applications窗口 '选择“插入(I)”的子菜单...
VBA 获取单元格行标和列标&数字转字母
logo_28的博客
03-30 8351
在vba中,对单元格进行操作,经常需要知道单元格所在的行或列.可用以下方法获取: 一、单元格的行标和列标 set C=range("A1") c.row 得行号, c.column 得列号 二、列号转字母 ‘将1,2,3,....转为"A","B","C"..... Sub test() For i = 1 To 26 ...
VBA excel中表示列的字母换成数字
weixin_30632883的博客
12-08 1085
出自这里 数字转列标：Split(Cells(1,1).Address(1,0),"$")(0) '将1-256替换红色的1就可以 Cells(1, a) 选中对应的第一行第A列的一个单元格； Address的返回值为该单元格的绝对地址 ，如$A$1，即A列1行； 　　它有4个参数，咱们直说前俩，第一个为行的绝对路径，默认为true，第二个为列的绝对路径默认为false ...
VBA 字母和数字互换，Cells和Range转换
weixin_58444518的博客
05-20 4561
这里给两个写好的函数 1.数字转为字母，输入数字即可转化为列号(这里最大到ZZ)，比如：NumToLetter(28)="AB" Function NumToLetter(num As Long) As String Dim alphabet() 'a-z字母表 alphabet() = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U
VBA将字母列号转化为数字列号
最新发布
05-20
在VBA中，可以使用函数`ColumnLetterToNumber`将字母列号转化为数字列号： ``` Function ColumnLetterToNumber(ByVal col As String) As Integer Dim i As Integer Dim result As Integer For i = 1 To Len(col) result = result * 26 + (Asc(UCase(Mid(col, i, 1))) - 64) Next i ColumnLetterToNumber = result End Function ``` 使用方法： ``` Sub Test() Dim columnLetter As String Dim columnNumber As Integer columnLetter = "B" columnNumber = ColumnLetterToNumber(columnLetter) MsgBox "Column " & columnLetter & " is column number " & columnNumber End Sub ``` 这个函数的原理是将每个字母转化为数字，然后将多个数字相加得到结果。例如，将字母列号"AB"转化为数字列号，首先将"A"转化为1，然后将"B"转化为2，最后将1和2相加得到结果3。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

今夕乃何夕

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值