作者：乔山办公网日期：
返回目录：excel表格制作
之前发过一篇文章，Excel列号转数字的：
最近做了一个小项目，刚好用上了这个，自己写了两个函数，其实就是26进制A-Z
'字母转数字Function nColumn(ByVal sChar As String) As Long Dim i&, aLen&, sTemp$ sTemp = UCase(sChar) aLen = Len(sTemp) For i = 1 To aLen nColumn = nColumn + (Asc(Mid(sChar, i, 1)) - 64) * 26 ^ (aLen - i) Next iEnd Function'数字转字母Function zColumn(ByVal num As Long) As String Dim n&, m&, s$ n = num Do While n > 0 m = (n Mod 26) '取余 If m = 0 Then m = 26 s = Chr$(m + 64) + s n = (n - m) / 26 Loop zColumn = sEnd Function