把中文数字写成壹贰叁或一二三是不规范的。

最佳答案 - 由投票者7个月前选出

1。小写字母一次变成大写请用转换函数 UPPER（text)
如：A1单元格中有abcde,就在B1单元格输入公式 =UPPER（A1）后回车，在B1单元格会显视 ABCDE。
2。在Excel里把所有中文数字变成阿拉伯数字，好象还没有现成的函数。本人编了个自定义函数，（附后），你可以试用一下，希望能实现你的特定要求。
Public Function swwx(a)
Dim i As Integer, x As Integer
For x = 1 To Len(a)
Select Case Mid(a, x, 1)
Case "一", "壹"
swwx = swwx & 1
Case "二", "贰"
swwx = swwx & 2
Case "三", "叁"
swwx = swwx & 3
Case "四", "肆"
swwx = swwx & 4
Case "五", "伍"
swwx = swwx & 5
Case "六", "陆"
swwx = swwx & 6
Case "七", "柒"
swwx = swwx & 7
Case "八", "捌"
swwx = swwx & 8
Case "九", "玖"
swwx = swwx & 9
Case "○", "零"
swwx = swwx & 0
Case Else
swwx = swwx & Mid(a, x, 1)
End Select
Next x
End Function
3。使用方法：
假定数据存放在工作表“表一”，右击“表一”的标签----选择“查看代码”----单击上面菜单上的“插入”----选择“模块”，把上面的函数代码复制进右面的代码编辑框中。最后关闭代码窗口，自动回到工作表桌面。
自定义函数的使用方法与EXCEL标准函数的使用方法是一样的。例如：A1是要转换的数据“一三三四五”，在B1中输入公式“=SWWX(A1)”，引号不要输入，点确定后，在B1单元格会显视“12345”。公式中“SWWX”是自定义的函数名称，你完全可以在代码中更改为你容易记的名称。
4。说明：
上面的代码是为特定中文数字而写的，不要直接用于标准中文数字转换阿拉伯数字。因为标准中文数字书写格式中还应包括中文数字的单位，如十、佰、仟等等因素。

要怎么执行?

执行不了.

你是否已把上面的函数代码复制进VB 代码窗口的相应模块中。假定数据存放在工作表“表一”，右击“表一”的标签----选择“查看代码”----单击上面菜单上的“插入”----选择“模块”，把上面的函数代码复制进右面的代码编辑框中。最后关闭代码窗口，自动回到工作表桌面。
自定义函数的使用方法与EXCEL标准函数的使用方法是一样的。例如：A1是要转换的数据“一三三四五”，在B1输入公式“=SWWX(A1)”，引号不要输入，点确定后，在B1单元格会显视“12345”。公式中“SWWX”是自定义的函数名称，你完全可以在代码更改为你容易记的名称。

格式--设置单元格格式--数字--特殊--中文大写数字

或：右键单击，设置单元格格式--数字--特殊--中文大写数字

题意：中文数字变成阿拉伯数字，不是阿拉伯数字变成中文数字。

先选中要设置的目标，右击单元格式——数字——特殊——中文大写，就OK了。

题意：中文数字变成阿拉伯数字，不是阿拉伯数字变成中文数字。

由于不知一二三的”零”是什么? 故祇对付 1 至 9
请将以下的VBA贴在模块上
Function yqx(x) As String
aa = "一二三四五六七八九"
bb = "壹贰叁肆伍陆柒捌玖"
cc = "123456789"
For t = 1 To Len(cc)
x = Replace(x, Mid(aa, t, 1), Mid(cc, t, 1))
x = Replace(x, Mid(bb, t, 1), Mid(cc, t, 1))
Next
x = UCase(x)
yqx = x
End Function
一个全新(以楼主为名)的自定义函数 yqx 便诞生了
假设A1 是 aB一1壹9玖九XyZ
在任何一格输入公式 =yqx(A1)
便会显示 AB111999XYZ

好！向您学习！！！

Swwx8888, 您好!
希望有机会能再作交流