2023年12月18日发(作者：)

'*****************************************************************************

'将Excel中列数转换为列名（如27列--->AA列）

'参数：var 列数

'返回：列名 string

'*****************************************************************************

Public Function ChgNumToABC(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 = ChgNumToABC(quotient)

End If

ChgNumToABC = res & Chr(remainder + 65 - 1)

End Function

Function zhzm(num As Long) As String

Dim inum As Long

Dim imod As Long

le

Do While num

inum = IIf(num Mod 26 = 0, num 26 - 1, num 26)

imod = IIf(num Mod 26 = 0, 26, num Mod 26)

zhzm = Chr(64 + imod) & zhzm

num = inum

Loop

End Function