excel列数转换为列名

'可以转换6个Z以内的数据

Dim n(26)
For i=1 To 26
   n(i)=Chr(65-1+i)
Next

Function mods(a)
  If a Mod 26 =0 Then
     mods="Z"
  Else mods=n(a Mod 26)
  End if
End Function

Function getcolname(b)
  If b<=26 Then
     getcolname=mods(b)
  End If
  
  If b>26 Then
     'If b Mod 26 = 0 And b\26 <=27 Then
     If b Mod 26 = 0  Then
        getcolname=getcolname(b\26-1)&mods(b)           
     else
        getcolname=getcolname(b\26)&mods(b)
     End if        
  End If
  
End Function