好吧问答库 > Excel函数：怎样将同一个单元格里的数字与字母一并以数字形式提取出来？请大神赐教，感谢！

Excel函数：怎样将同一个单元格里的数字与字母一并以数字形式提取出来？请大神赐教，感谢！

请看下图：

2024年11月15日 01:42

有2个网友回答

网友（1）：

可以先用code函数转换成单个数字，再连接起来。

网友（2）：

那只能用自定义函数了
Function ABC(a As Range)
Dim i%, j%, arr(), ss$
ss = a.Value
j = Len(ss)
ReDim arr(1 To j)
For i = 1 To j
If Asc(Mid(ss, i, 1)) >= 65 And Asc(Mid(ss, i, 1)) <= 90 Then
arr(i) = Asc(Mid(ss, i, 1)) - 64
Else
arr(i) = Mid(ss, i, 1)
End If
Next
ABC = Join(arr, "")
End Function