[已解决]中文小写转阿拉伯数字

cunfu2010

如题，如何用VBA代码实现中文小写转阿拉伯数字
想法：能不能以A列单元格中的字符串为依据进行转换，比如，取每个单元格中的“级”前面的字符串，存到动态数组中，然后判断，如果新取的字符中有一个字符则用InStr("一二三四五六七八九十", Left(arr(i, 1), 1))直接进行转换，如果新取的字符串中有两个字符则分别取第一个、第二个字符用InStr("一二三四五六七八九十", Left(arr(i, 1), 1))转换并用&把转换结果连接，同样，如果新取字符串中有三个字符，依法转换连接。不知道可行不？

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-12-21 09:06

1. Function DTX(s)
   
2.     Dim str$, i%
   
3.     s = Replace(s, "级", "")
   
4.     str = "〇一二三四五六七八九"
   
5.     str2 = Replace(s, "十", "*10+")
   
6.     For i = 1 To 10
   
7.         str2 = Replace(str2, Mid(str, i, 1), i - 1)
   
8.     Next
   
9.     If Left(str2, 1) = "*" Then str2 = 1 & str2
   
10.     If Right(str2, 1) = "+" Then str2 = Mid(str2, 1, Len(str2) - 1)
    
11.     DTX = Evaluate("(" & str2 & ")*1") & "级"
    
12. End Function
    
13. 
    
14. Sub tt()
    
15. Dim arr(), i%
    
16. arr = Sheet1.UsedRange
    
17. For i = 1 To UBound(arr)
    
18. Sheet1.Cells(i, 4) = DTX(arr(i, 1))
    
19. Next
    
20. End Sub

复制代码

跳转到最佳答案楼层

苏子龙

1. Function DTX(s)
   
2.     Dim str$, i%
   
3.     s = Replace(s, "级", "")
   
4.     str = "〇一二三四五六七八九"
   
5.     str2 = Replace(s, "十", "*10+")
   
6.     For i = 1 To 10
   
7.         str2 = Replace(str2, Mid(str, i, 1), i - 1)
   
8.     Next
   
9.     If Left(str2, 1) = "*" Then str2 = 1 & str2
   
10.     If Right(str2, 1) = "+" Then str2 = Mid(str2, 1, Len(str2) - 1)
    
11.     DTX = Evaluate("(" & str2 & ")*1") & "级"
    
12. End Function
    
13. 
    
14. Sub tt()
    
15. Dim arr(), i%
    
16. arr = Sheet1.UsedRange
    
17. For i = 1 To UBound(arr)
    
18. Sheet1.Cells(i, 4) = DTX(arr(i, 1))
    
19. Next
    
20. End Sub

复制代码

苏子龙

1. Function DTX(s)
   
2.     Dim str$, i%
   
3.     s = Replace(s, "级", "")
   
4.     str = "〇一二三四五六七八九"
   
5.     str2 = "十百千万"
   
6.     str3 = s
   
7.     For i = 1 To 4
   
8.         str3 = Replace(str3, Mid(str2, i, 1), "*" & 10 ^ i & "+")
   
9.     Next
   
10.     For i = 1 To 10
    
11.         str3 = Replace(str3, Mid(str, i, 1), i - 1)
    
12.     Next
    
13.     If Left(str3, 1) = "*" Then str3 = 1 & str3
    
14.     If Right(str3, 1) = "+" Then str3 = Mid(str3, 1, Len(str3) - 1)
    
15.     DTX = Evaluate("(" & str3 & ")*1") & "级"
    
16. End Function

复制代码

到万，级别能到这里应该差不多了

cunfu2010

苏子龙 发表于 2016-12-21 09:06

感谢，非常感谢。高手啊！不知道按我的想法：以A列单元格中的字符串为依据进行转换，比如，取每个单元格中的“级”前面的字符串，存到动态数组中，然后判断，如果新取的字符中有一个字符则用InStr("一二三四五六七八九十", Left(arr(i, 1), 1))直接进行转换，如果新取的字符串中有两个字符则分别取第一个、第二个字符用InStr("一二三四五六七八九十", Left(arr(i, 1), 1))转换并用&把转换结果连接，同样，如果新取字符串中有三个字符，依法转换连接。不知道可行不？
纯属个人瞎想，求个论证。（我没写出来，）

cunfu2010

苏子龙 发表于 2016-12-21 09:36
到万，级别能到这里应该差不多了

到万就足够用了，谢谢！