在Excel中36位进制码怎么改10位进制码

怎么把36位进制码改成10位进制码

Function SL2S(xStr1 As String) As Long
Dim xStr(0 To 35) As String
For i = 0 To 9
xStr(i) = i
Next i
For i = 10 To 35
xStr(i) = Chr(i + 55)
Next i
For i = 1 To Len(xStr1)
SL2S = SL2S + (WorksheetFunction.Match(Mid(xStr1, i, 1), xStr(), 0) - 1) * 36 ^ (Len(xStr1) - i)
Next i
End Function


大写字母

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！