<内容来至Excelhome>

 

 

 vba列数字与字母互换:

 

 

 方案一:速度:快

 

 

 Function NumToStr(ByVal Num As Long) As String   '数字转字母

     Dim M As Long

     If Num < 1 Then Exit Function

     Do

         M = Num Mod 26

         If M = 0 Then M = 26

         NumToStr = Chr(64 + M) & NumToStr

         Num = (Num - M) / 26

     Loop Until Num <= 0

 End Function

 

 

 

 

 Function StrToNum(ByVal Str As String) As Long '字母转数字

     Dim s As String, S1 As String

     If Str = "" Then Exit Function

     Str = UCase(Str)

     s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

     For i = 1 To Len(Str)

         S1 = Mid(Str, i, 1)

         If InStr(s, S1) = 0 Then Crazy_Num = -1: Exit Function

         StrToNum = StrToNum + InStr(s, S1) * 26 ^ (Len(Str) - i)

     Next

 End Function

 方案二:迭代 速度:略快 

 

 

 Function colinf(t) '列标签字母⇔列序号数值 相互转换

     If t = "" Then colinf = "": Exit Function '如果引用単元格=空白 即返回空白退出

     If IsNumeric(t) Then '如果引用単元格=数值(列序号)，計算返回列标签大写英文字母

         If t < 1 Then colinf = "": Exit Function '如果数是0或負数返回空白退出

         Do

             colinf = Chr((t - 1) Mod 26 + 65) & colinf '以26除数反複Mod求余得到1-26字母

             t = Int((t - 1) / 26) '求余后再用26除后Int取整……

         Loop Until t <= 0 '反複迭代计算直至数t已不能除26求余止

     Else '如果引用単元格=文本字符，計算返回序号数値

         t = UCase(t) '首先文本転換大写字母

         For i = 1 To Len(t) '遍各字符

             colinf = colinf + (Asc(Mid(t, i, 1)) - 64) * 26 ^ (Len(t) - i) '按26冪乗計算累計数

         Next

     End If

 End Function

 

 

 

 

 方案三:递归 速度:略快 

 

 

 Function getColStr$(n) '列序号数字→列标签字母

     Dim s$, t as long

     t = n

     Do

         s = Chr((t - 1) Mod 26 + 65) & s

         t = Int((t - 1) / 26)

     Loop Until t <= 0

     getColStr = s

 End Function

 

 

 方案四:

 

 

 Function getC_Str(n) '列序号数字→列标签字母

 

 

     getC_Str = Split(Cells(1, n).Address, "$")(1)

 

 

 End Function

 

 

 ------------------以下为测试3种方案全码-----------------

 Sub test()

     dqT = Timer

     M = 1000: n = 10000

     Dim strTmp

 

 

     For i = 1 To M

         For j = 1 To n

             strTmp = getC_Str(n)

         Next j

     Next i

 

 

     dqT1 = Timer

     For i = 1 To M

         For j = 1 To n

             strTmp = getColStr(j)

         Next j

     Next i

     dqT2 = Timer

 

 

     For i = 1 To M

         For j = 1 To n

             strTmp = NumToStr(n)

         Next j

     Next i

 

 

     MsgBox " getC_Str  用时：" & Format(Timer - dqT1, "0.0000") & vbLf & "getColStr 用时：" & Format(dqT2 - dqT1, "0.0000") & vbLf & "NumToStr用时：" & Format(Timer - dqT2, "0.0000")

 End Sub

 

 

 Function getColStr$(n) '列序号数字→列标签字母

      Dim s$, t as long

     t = n

     Do

         s = Chr((t - 1) Mod 26 + 65) & s

         t = Int((t - 1) / 26)

     Loop Until t <= 0

     getColStr = s

 End Function

 

 

 Function NumToStr(ByVal Num As Long) As String   '数字转字母

     Dim M As Long

     If Num < 1 Then Exit Function

     Do

         M = Num Mod 26

         If M = 0 Then M = 26

         NumToStr = Chr(64 + M) & NumToStr

         Num = (Num - M) / 26

     Loop Until Num <= 0

 End Function

 

 

 Function getC_Str(n) '列序号数字→列标签字母

 

 

     getC_Str = Split(Cells(1, n).Address, "$")(1)

 

 

 End Function

gold_star
 
方法一：
'列数转字母
Function CNtoW(ByVal num As Long) As String
    CNtoW = Replace(Cells(1, num).Address(False, False), "1", "")
End Function
'字母转列数
Function CWtoN(ByVal AB As String) As Long
    CWtoN = Range("a1:" & AB & "1").Cells.Count
End Function
 
方法二：
Function GetColumn(char)
    Dim t
    On Error Resume Next
    If IsNumeric(char) Then
        t = Split(Cells(1, char).Address, "$")(1)
    Else
        t = Columns(char & ":" & char).Column
    End If
    If Err.Number <> 0 Then GetColumn = "超出范围" Else GetColumn = t
End Function
 
 
 
3，方法三：
 

 不过就功能、目的来说，确实意义不大。

 因为既然用到了VBA，就可以后台使用多种方法处理列数，没必要再写一个函数来用。

 比如， cells(n,"AB") 或者 Range("AB" & n) 就可以直接定位到指定列标所在列。

 或者用 cells(n,28).Address 来获取列标字母。

 如同楼上各位的例子那样。
 而如果需要自己计算把列序号转换为字母标签，则可以用下面迭代计算：

 假设t为列序号，那么：

       s = ""
       Do
           s = Chr((t - 1) Mod 26 + 65) & s       '以26除数反複Mod求余得到对应1-26字母
        t = Int((t - 1) / 26)                         '再用26除后Int取整进行迭代计算
     Loop Until t <= 0                                 '反複算直至数t已不能除26求余止
 +++++++
 Function f(t)
     Do
         f = Chr((t - 1) Mod 26 + 65) & f
         t = Int((t - 1) / 26)
     Loop Until t = 0
 End Function
 +++++++
 或者写成：
 +++++++
 Function f(t)
     Do
         f = Chr((t - 1) Mod 26 + 65) & f
         t = (t - 1) \ 26
     Loop While t
 End Function
 +++++++
 
 
 
（本文主要内容归纳自网上文章：EXCEL列标数字与字母的转换）

VBA取得EXCEL表格中的行数和列数
 
请注意不要使用Columus等关键字作为变量，例如"Columus = ActiveSheet.UsedRange.Columns.Count"！
 
初学EXCEL宏的童鞋，总是很想知道表格中含有数据的行数和列数，尤其是行数和列数不确定的情况下。这样可以避免很多的错误，并且可以提高效率。但每次用到的时候到网上查找时，总是给了很多无用的答案，往往找不到想要的结果。笔者也是每次使用时，临时查找总是很头疼。偶然发现一篇博客，上面详细记录了不同的方法，笔者测试了几种发现真的很好用。本着分享万岁的精神，将博客内容共享出来。希望对大家有所帮助。
 
来源：http://www.okexcel.com.cn/bbs/viewthread.php?tid=26
 
注：每种方法中上面的是Excel的行数，下面的是Excel的列数。
 
方法1:
 
ActiveSheet.UsedRange.Rows.Count
 
ActiveSheet.UsedRange.Columns.Count
 
缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。
 
方法2:
 
ActiveSheet.Range(“A65535”).End(xlUp).Row
 
ActiveSheet.Range(“IV1”).End(xlToLeft).Column
 
可以简写为：
 
ActiveSheet.[A65536].End(xlUp).Row
 
ActiveSheet.[IV1].End(xlToLeft).Column
 
缺点：只能计算出一列（行）的最后一个单元格所在的行（列）数。本例是只返回A列最后一个单元格所占的行数。
 
方法3:
 
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
 
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
 
缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。
 
方法4:
 
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
 
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
 
缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。
 
方法5：
 
Application.CountA(ActiveSheet.Range(“A:A”))
 
Application.CountA(ActiveSheet.Range(“1:1”))
 
只能统计一列（行）的实际使用情况，得到的不一定是最后一行（列）的位置。方法2的数值比此方法大时，说明在A列的数据间有空白未填写的单元格。
 
方法6：
 
ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 
ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
 
效果同方法2
 
以上方法中比较常用的是方法1和方法2。
 

Sub get()
   '获取总行数
   total_row = Range("a65536").End(xlUp).Row
   total_row = ActiveSheet.UsedRange.Rows.Count
   
    '获取总列数
    MsgBox ActiveSheet.Range("IV1").End(xlToLeft).Column
    
    '获取单元格列号
    MsgBox Range("AE1").Column
	'求和
	Cells(2189, 33).Formula = Application.Sum(Range(Cells(901, 33), Cells(902, 33)))

	'另一种求和方式
	Range("A1").Formula ="=Sum(A2:B3)"
  
End Sub
 
 
参考
 
https://zhuanlan.zhihu.com/p/341838473
 

 https://stackoverflow.com/questions/10106465/excel-column-number-from-column-name/10107264