Excel-VBA：列号与列名（字母）间的互换

最新推荐文章于 2023-07-12 10:24:20 发布

小鸿叔

最新推荐文章于 2023-07-12 10:24:20 发布

阅读量1.4k

点赞数 2

分类专栏： VBA OFFICE-EXCEL 文章标签：列名列号字母转换互换

本文链接：https://blog.youkuaiyun.com/jyh_jack/article/details/105169271

版权

OFFICE-EXCEL 同时被 2 个专栏收录

52 篇文章

订阅专栏

VBA

42 篇文章

订阅专栏

本文介绍如何在Excel中实现列号与列名之间的相互转换，提供了两个VBA函数：Num2Name用于将列号转换为列名，Name2Num用于将列名转换为列号。这些函数通过单元格地址的特性来实现转换，对于处理大量数据表格非常有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'列号转字母（列名）
Function Num2Name(ByVal ColumnNum As Long) As String
    On Error Resume Next
    Num2Name = "" '超出范围返回空，如调用Num2Name(100000)
    Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", "")
    'Cell.Address用来返回单元格的地址，参数(0,0)返回相对地址A1，参数(1,1)返回绝对地址$A$1
End Function
 
'字母（列名）转列号
Function Name2Num(ByVal ColumnName As String) As Long
    On Error Resume Next
    Name2Num = -1 '超出范围返回0,如调用Name2Num("AAAA") ,EXCEL没有那么多列
    Name2Num = Range("A1:" & ColumnName & "1").Cells.Count
End Function