求一个34进制转换10进制 不要i和o

喜你不及

重新上传一下需求 比较详细

丢丢表格

=BASE(SUM(INT((A1+{16,11})/34))+A1,36)

满坛皆为吾师

上传文件，模拟结果。

江苏永能朱兴华

丢丢表格 发表于 2019-1-21 13:55
=BASE(SUM(INT(A1/(34^(ROW($1:$6)-1)+{17,23})))+A1,36)

老大有没有低版本的函数，便于学习下。

喜你不及

具体看1楼附件

满坛皆为吾师

喜你不及 发表于 2019-1-21 14:07
附件示具体要求！

B1公式下拉

1. =SUMPRODUCT((FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),C$10)-1)*34^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1)))))

复制代码

hno3861

1. =SUMPRODUCT((FIND(MID(A1,ROW($1:$9),1),"0123456789ABCDEFGHJKLMNPQRSTUWVXTZ")-1)*34^(LEN(A1)-ROW($1:$9)))

复制代码

34进制的超过9位的话，得到的是个约数，如果有超过9位的，ROW($1:$9)改成ROW($1:$19)或者更多。

喜你不及

满坛皆为吾师 发表于 2019-1-21 14:28
B1公式下拉

我更新了下附件 具体看5楼的 我想用后台代码实现

满坛皆为吾师

喜你不及 发表于 2019-1-21 15:19
我更新了下附件 具体看5楼的 我想用后台代码实现

去VBA版块能更快的获得求助

lsdongjh

1. 
   
2. Sub Test()
   
3.     Dim arr As Variant, lngRow As Long
   
4.     Dim strTemp As String, strHead As String, strMiddle As String, strLast As String
   
5.         
   
6.     arr = Sheet1.Range("A1:C2")
   
7.     For lngRow = LBound(arr) To UBound(arr)
   
8.         strTemp = arr(lngRow, 1)
   
9.         strTemp = UCase(strTemp)
   
10.         strTemp = Trim(strTemp)
    
11.         strHead = Mid(strTemp, 1, 6)
    
12.         strMiddle = Mid(strTemp, 7, Len(strTemp) - 8)
    
13.         strLast = Right(strTemp, 2)
    
14.         
    
15.         arr(lngRow, 2) = strHead & Return34To10String(strMiddle)
    
16.         arr(lngRow, 3) = Return34To10String(strLast)
    
17.     Next
    
18.    
    
19.     Sheet1.Range("A1:C2") = arr
    
20. End Sub
    
21. 
    
22. 
    
23. 
    
24. Function Return34To10String(strVal As String) As String
    
25.     Dim strTemp As String
    
26.     Dim intID As Integer, intLen As Integer
    
27.     Dim lngAsc As Long, lngResult As Long, strResult As String
    
28.    
    
29.     strVal = Trim(strVal)
    
30.     strVal = UCase(strVal)
    
31.     intLen = Len(strVal)
    
32.    
    
33.     For intID = 1 To intLen
    
34.         strTemp = Mid(strVal, intID, 1)
    
35.         lngAsc = Asc(strTemp)
    
36.         Select Case lngAsc
    
37.             Case 48 To 57
    
38.                 lngResult = (lngAsc - 48) * (34 ^ (intLen - intID))
    
39.             Case 65 To 89
    
40.                 lngResult = (lngAsc - 55) * (34 ^ (intLen - intID))
    
41.         End Select
    
42.         strResult = Val(strResult) + lngResult
    
43.     Next
    
44.     Return34To10String = strResult
    
45. End Function
    

复制代码