绿色写法的思路是什么

爱疯

Sub Solution()
    Dim columnTitl As String
    columnTitl = "AB"
    MsgBox titleToNumber(columnTitl)
End Sub

'求表的列号
Function titleToNumber(s As String)
    Dim n, ans, i, a, b
    n = Len(s)
    ans = 0

    For i = 1 To n
        a = Asc(Mid(s, i, 1)) - 64

        b = 26 ^ (n - i)
        ans = ans + a * b

        'ans = ans * 26 + a
    Next i
    titleToNumber = ans
End Function




蓝色写法的思路是"按权求和"，其中 a 是第 i 位的数，b 是第 i 位的位权。
请问如题？谢谢

grf1973

其实就相当于进制展开吧。以10进制为例：
abcd=a*1000+b*100+c*10+d
循环各步结果：
i=1,s=a
i=2,s=10a+b
i=3,s=(10a+b)*10+c=100a+10b+c
i=4,s=(100a+10b+c)*10+d=1000a+100b+10c+d，结果正确

爱疯

谢谢 grf1973！
应该是这原因，我又没看出来，真郁闷 。。。

爱疯

比如十进制123，可以=1*100+2*10+3，也可以=((0*10+1)*10+2)*10+3