![cb897bc9b73dd282c7dad9ac9671fe45.png](https://i-blog.csdnimg.cn/blog_migrate/39878c1cca4baec29f5df96f7feae4c6.jpeg)
在Excel当中文本(数字)是无法进行求和的,只有转换为数字格式才可以。
而在Excel当中很多金额相关类的数字往往采用大写汉字的形式储存,但汉字无法进行求和,这时候就需要将文本转换成数字,在进行统计分析。
![b35bfdef26bf2fc45280546cc68457b1.png](https://i-blog.csdnimg.cn/blog_migrate/4e83b0c8b76da1c9588e08de687c1005.jpeg)
如上图所示,如何将汉字格式的金额,转换成数据呢?(左列文字转换成右列数字)这里我们运用VBA技术来实现。自定义一个函数叫fuc,输入以下代码,在Excel单元格中输入函数=fuc(a2),即可返回正确结果。
![965f031739ab1b917fb8efcebdc917ec.png](https://i-blog.csdnimg.cn/blog_migrate/8f35945a73d86722fecd9802de42d6be.jpeg)
动图展示如下:
![b5c6fda3dbee776d3f00d366befa8f4a.gif](https://i-blog.csdnimg.cn/blog_migrate/bc497d47169f7c8f19b6ee7b208139ac.gif)
明细代码如下所示:
Function fuc(str As String)Application.Volatile Truestr1 = "分角元十百千万亿"str2 = "零一二三四五六七八九"A = 1str = Replace(str, "整", "")str = Replace(str, "亿", ")亿")str = Replace(str, "万", ")万")If str <> "" ThenMylen = Len(str$)For m = 1 To MylenIf Mid(str, m, 1) = "万" And A = 1 Then str = "(" & str: A = 0If Mid(str, m, 1) = "亿" Thenstr = "(" & strA = 0For k = m + 3 To Mylen + 2If Mid(str$, k, 1) = "万" Thenstr = Replace(str, "亿", "亿(")Exit ForEnd IfNextExit ForEnd IfNextFor i = 0 To 10str = Replace(str, Mid(str2, i + 1, 1), i)str = Replace(str, Mid(str1, i + 1, 1), "*" & (10 ^ (i - 2)) & "+")Nextstr = Replace(str, "+)", ")")str = Replace(str, "+*", "*")Mylen = Len(str)str = Left(str, Mylen - 1)fuc = Evaluate(str)End IfEnd Function
小结
代码较长,小伙伴们可直接套用,有问题随时沟通~
觉得有用,欢迎关注我,定期分享数据处理小技巧!