excel如何将文字转换指定数字或英文 (文字转换数字代码工具)
excel如何将文字转换指定数字或英文 (文字转换数字代码工具)
如果你用的excel2016的话
1，格式这个按钮就在编辑栏里的右边，编辑栏比较繁琐，需要仔细找一下。
2、点击格式这一按钮，就会弹出一个工具栏，找到设置单元格格式。在这个工具栏的最后一栏就是，点击它。
3、点击之后，就会弹出一个窗口，在窗口的右侧有一栏功能键，在里面找到特殊并且点击他。
4、点击后，就会出来三项功能，第一个是转换成邮政编码，第二个是转换成现代中文，第三项是转换成繁体中文。
5、点击第二项，然后在点击确认，正确退出后你就会看到转换区域的数字都成了中文。
掌上识别王。汉字转换数字掌上识别王软件最好， 掌上识别王是一款用于文字识别、汉字转换数字的工具类软件，效果可媲美一般的扫描仪，高识别精准率。
其实你是输入ASCII码，WINDOWS中可以利用按住ALT同时输入字符对应的ASCII的十进制码的方式输入字符。
字符的ACSII码可从“开始”-“程序”-“附件”-“系统工具”-“字符映射表”中字符集选“WINDOWS 中文（简体）”，选中需要的字符后，在窗口最下方会显示该字符的ACSII码，如█显示为U+2588（0XA880），其中A880即是█的ACSII码，不过是16进制的，转成十进制即为43136，你可用附件中的“计算器”转成十进制的代码后输入。 原理：
输入键盘上没有的字符
按住 ALT 键，然后在数字键盘上按表示要输入字符的十进制代码值的键。
完成输入后，释放 ALT 键。
Windows 2000 生成指定的字符并将它传递到前台程序。
安装或删除代码页转换表
在“控制面板”中打开 区域选项。
单击“常规”选项卡上的“高级”。
在“代码页转换表”下，执行以下操作：
选中要安装的代码页转换表旁的复选框。
清除要删除的代码页转换表旁边的复选框。
注意
必须作为管理员或管理组的成员登录才能完成该步骤。如果计算机与网络连接，则网络策略设置可能也会阻止您完成此过程。
要打开“控制面板”项，请单击“开始”，指向“设置”，单击“控制面板”，然后双击相应的图标。
用其本机语言显示非 Unicode 程序
在“控制面板”中打开 区域选项。
单击“常规”选项卡上的“设置默认值”。
在“请选定恰当的区域设置”下，选择要使用的非 Unicode 程序的语言版本。
注意
必须作为管理员或管理组的成员登录才能完成该步骤。如果计算机与网络连接，则网络策略设置可能也会阻止您完成此过程。
要打开“控制面板”项，请单击“开始”，指向“设置”，单击“控制面板”，然后双击相应的图标。
系统区域设置运行不支持 Unicode 的程序通过安装必要的代码页和字体以本机语言显示菜单和对话框。但是，为其他语言设计的程序可能不能正确地显示字体。
只有非 Unicode 程序才受系统区域设置影响。系统区域设置没有更改 Windows 2000 或 Unicode 程序的菜单和对话框。
可用系统区域设置由计算机上已安装的语言组决定
方法/步骤
1
方法一，利用函数查错工具，如果数字是文本格式的，在左上角会有一个小三角的东西，点击单元格，选中有个惊叹号样子的小方格，选择“转换为数字”完成批量转换
END
方法/步骤2
1
方法二，四则运算，就是将文本型数字进行加减乘除的运算，比如对C2进行转换，就写公式=C2*1，就可以将文本转成数值了
END
方法/步骤3
1
方法三，进行“减负运算”，它其实也就是四则运算，只是写法有些不一样，比如对C2进行转换，就写公式=--C2，通过计算，就可以将文本型数字转换成数值了
END
方法/步骤4
方法四，是一个无意间发现的快捷操作，对单列数据进行转换时，这个方法绝对又快又酷，操作很简单，选中要转换的一列，按ALT+D，出现如下的提示
然后按E，出现如下的分列对话框
3
最后，按F，就可以完成了，熟练后1秒就完成操作了，边上的人最多就是看到你屏幕闪了一下，然后发现文本变成数值了，这是利用了分列功能默认的“列数据格式”为”常规“的特性，讲文本型数字原地”切“成了常规
我们使用WPS文字进行文档编辑时，难免会对文档进行一些编号处理，像普通的1、2、3还好输入，可是有时候会被要求输入①、II、叁、iv…这些编号，这时候就有点不好办了，那么在WPS文字中怎么输入这些编号呢。不过大家在看了下面这篇教程之后，也不难做到了。
WPS文字转换数字类型的 方法 ：
①启动WPS文字2013，单击菜单栏--插入--数字。
②输入数字11，然后在下方选择类型，例如我选择的就是罗马数字类型。
③单击确定按钮，即可将阿拉伯数字11转换为罗马数字11.
④当然不仅仅就这一种类型，例如下图中我将22转换为了大写形式。
用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
结果如图：
