Excel怎么把文字转换为阿拉伯数字

Question

如题所述

Answer 1

用vba写个自定函数可以实现。

假设数字在100以内，代码如下：

Function alb(s As String)

Dim ZD

Set ZD = CreateObject("scripting.dictionary")

ZD.Add "一", 1

ZD.Add "二", 2

ZD.Add "三", 3

ZD.Add "四", 4

ZD.Add "五", 5

ZD.Add "六", 6

ZD.Add "七", 7

ZD.Add "八", 8

ZD.Add "九", 9

alb = 0

arr = Split(s, "十")

If UBound(arr) > 0 Then

For i = UBound(arr) To 0 Step -1

If i = 1 Then

alb = alb + ZD(arr(i))

Else

If arr(i) = "" Then

alb = alb + 10

Else

alb = alb + 10 * ZD(arr(i))

End If

End If

Next i

Else

alb = alb + ZD(arr(0))

End If

End Function

结果如图：

Answer 2

将“十档”写成“一十档”、将“十一档”写成“一十一档”这种格式
就可以用数组公式来转换
D2
=MATCH(LEFT(C2,LEN(C2)-1),TEXT(ROW($1:$100),"[DBNum1]"),)
以同按CTRL+SHIFT+回车 这三个键作为结束
再下拉填充公式
即可

Answer 3

这个好像没有批量处置的方法吧！
可以用筛选加复制或替换，毕竟可能也只要做十几二十次左右。