单元格列名和列索引的转换

撒网计划

1. <blockquote>    Private Shared ReadOnly RADIX As Integer = 26 ' 转换26进制

复制代码

撒网计划

1.     Private Shared ReadOnly RADIX As Integer = 26 ' 转换26进制
   
2.     Private Shared ReadOnly CODEBASE As Integer = 64  '编码差值 字符 与 值差 64
   
3.     ''' <summary>
   
4.     ''' 编码: A--Z 表示 0-25 基数,26个数 从 1 开始，也就是说 A-Z ，N+1 表1-26<br/>
   
5.     ''' AA--ZZ 表示00到25*26,一共26*26个数，MN ,(M+1)*26+N+1,如AB, 值: (0+1)*26+1+1 = 28<br/>
   
6.     ''' AAA--ZZZ 表示000到25*26*26,一共26*26*26个数，PMN (P+1)*26*26+(M+1)*26+N+1<br/>
   
7.     ''' AAAA--ZZZZ 表示0000到25*26*26*26,一共26*26*26*26个数，QPMN: (Q+1)*26*26*26+(P+1)*26*26+(M+1)*26+N+1<br/>
   
8.     ''' 整数转编码: <see cref="GetCellColName"/> <br/>
   
9.     ''' V表示一个整数<br/>
   
10.     ''' 1.  N =(V-1) mod 26 ;  V=(V-1)/26 = (Q+1)*26*26+(P+1)*26+(M+1)  ;<br/>   
    
11.     ''' 2.  M=(V-1) mod 26 ; V=(V-1)/26 = (Q+1)*26+(P+1);<br/>
    
12.     ''' 3.  P=(V-1) mod 26 ; V=(V-1)/26 = (Q+1);<br/>
    
13.     ''' 4.  Q=(V-1) mod 26 ; V=(V-1)/26 = 0;<br/>
    
14.     ''' 5. V=0 退出计算，转换完成<br/>
    
15.     ''' </summary>
    
16.     ''' <param name="ColName"></param>
    
17.     ''' <returns></returns>
    
18.     Public Shared Function GetCellColIndex(ColName As String) As Integer
    
19.         Dim charArr As Char() = ColName.ToCharArray()
    
20.         Dim ret As Integer = 0
    
21.         For Each c As Char In charArr
    
22.             ret = ret * RADIX + Strings.Asc(c) - CODEBASE ' N+1
    
23.         Next
    
24.         Return ret
    
25.     End Function
    
26.     Public Shared Function GetCellColName(ColIndex As Integer) As String
    
27.         Dim sb As New StringBuilder
    
28.         Dim modvalue As Integer
    
29.         If ColIndex < 1 Or ColIndex >= &H4000 Then Return String.Empty
    
30.         While ColIndex > 0
    
31.             ColIndex -= 1
    
32.             modvalue = ColIndex Mod RADIX
    
33.             sb.Append(Chr(modvalue + CODEBASE + 1))
    
34.             ColIndex \= RADIX
    
35.         End While
    
36.         Return Strings.StrReverse(sb.ToString)
    
37.     End Function

复制代码

cidanji

1. Sub test()
   
2. Debug.Print GetCol("AA"); GetCol(100)
   
3. End Sub

复制代码

1. Function GetCol(a)
   
2. On Error Resume Next
   
3. GetCol = IIf(IsNumeric(a), Split(Columns(a).Address(0, 0), ":")(0), Columns(a).Column)
   
4. End Function

复制代码

ykcbf1100

楼主搞复杂了。

撒网计划

ykcbf1100 发表于 2024-4-27 20:06
楼主搞复杂了。

你那是excel 封装好的，你说我能不知道吗？ 那个返回是是range对象，复杂。消耗要大很多的。

prome3

做了一个关于运行速度的测试，结论如下：
1. 单个函数运行一次，不用对象约需 1.3 微秒，用对象约需 3.5 微秒（1微秒=千分之一毫秒=百万分之一秒）。
2. 微软官方给的VBA代码运行最快。