请选择 进入手机版 | 继续访问电脑版

库管易

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫描二维码登录本站

使用VBA将Excel的列数字转换为列名

已有 99 次阅读2019-5-28 15:30

在Excel表格的VBA编程中,非常实用的一个函数,可以把数字转换为对应的列名。
'*****************************************************************************
'将Excel中列数转换为列名(如27列--->AA列)
'参数:var 列数
'返回:列名 string
'*****************************************************************************
Public Function NumToLei(ByVal var As Integer) As String
    Dim res As String
    Dim remainder As Integer '余数
    Dim quotient As Integer    '商
    remainder = var Mod 26
    If remainder = 0 Then
        var = var - 26
        remainder = 26
    End If
    quotient = var \ 26
    If quotient <> 0 Then
        res = NumToLei(quotient)
    End If
    NumToLei = res & Chr(remainder + 65 - 1)
End Function

路过

鸡蛋

鲜花

握手

雷人

手机版|仓库管理网| 渝ICP备18009661号-1|beian渝公网安备50010102000613号

GMT+8, 2019-8-21 03:37 , Processed in 0.024020 second(s), 8 queries , Gzip On, Redis On.

Powered by 库管易

KuGuanYi.Com

返回顶部