中文大写数字转换成阿拉伯数字（一段VBA轻松搞定）

在Excel当中文本（数字）是无法进行求和的，只有转换为数字格式才可以。

而在Excel当中很多金额相关类的数字往往采用大写汉字的形式储存，但汉字无法进行求和，这时候就需要将文本转换成数字，在进行统计分析。

如上图所示，如何将汉字格式的金额，转换成数据呢？（左列文字转换成右列数字）这里我们运用VBA技术来实现。自定义一个函数叫fuc，输入以下代码，在Excel单元格中输入函数=fuc(a2)，即可返回正确结果。

动图展示如下：

明细代码如下所示：

Function fuc(str As String) Application.Volatile True str1 = "分角元十百千万亿" str2 = "零一二三四五六七八九" A = 1 str = Replace(str, "整", "") str = Replace(str, "亿", ")亿") str = Replace(str, "万", ")万") If str <> "" Then MyLen = Len(str$) For m = 1 To Mylen If Mid(str, m, 1) = "万" And A = 1 Then str = "(" & str: A = 0 If Mid(str, m, 1) = "亿" Then str = "(" & str A = 0 For k = m 3 To Mylen 2 If Mid(str$, k, 1) = "万" Then str = Replace(str, "亿", "亿(") Exit For End If Next Exit For End If Next For i = 0 To 10 str = Replace(str, Mid(str2, i 1, 1), i) str = Replace(str, Mid(str1, i 1, 1), "*" & (10 ^ (i - 2)) & " ") Next str = Replace(str, " )", ")") str = Replace(str, " *", "*") Mylen = Len(str) str = Left(str, Mylen - 1) fuc = Evaluate(str) End If End Function小结

代码较长，小伙伴们可直接套用，有问题随时沟通~

觉得有用，欢迎关注我，定期分享数据处理小技巧！