VBA 列号和对应的字母相互转换

chunyu.wu

于 2024-06-24 09:39:22 发布

阅读量823

点赞数 5

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/wuchunyu002/article/details/139914690

版权

VBA 专栏收录该内容

64 篇文章 4 订阅

订阅专栏

最靠谱的方法

'----------------------------
' 列号→字母
'----------------------------
Function ColumnNum2Name(ByVal intColNum As Long) As String
    ColumnNum2Name = Split(Columns(intColNum).address, "$")(2)
End Function

'----------------------------
' 字母→列号
'----------------------------
Function ColumnName2Num(ByVal strColName As String) As Long
    ColumnName2Num = Columns(strColName).column
End Function