好玩的vbs特色代码第6/6页

' 将数字计数的列号转换成EXCEL中的列名, n, 待转换的列号, 从1开始
Function getColName(n)
  Dim MyString, MyArray
  MyString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  MyArray = Split(MyString, ",")
  If (n-1)<26 Then
    getColName = MyArray(n-1)
  Else
    If (n Mod 26) > 0 Then
      getColName = MyArray(n\26-1)&MyArray((n Mod 26)-1)
    Else
      If (n\26) > 1 Then
        getColName = MyArray(n\26-2)&"Z"
      Else
        getColName = MyArray(n\26-1)&"Z"
      End If
    End If
  End If
End Function

Function getColName(n)
  If (n-1)<26 Then
    getColName = Chr(64+n)
  Else
    getColName = Chr(64+(n\26))&Chr(64+(n Mod 26))
  End If
End Function

最新评论