导读：在日常工作中，我们难免会遇到需要将Excel中的汉字转换成数字的情况，本文将详细介绍在Excel中如何将汉字转换成数字。文章将会介绍常见的汉字数字、通过函数实现汉字数字转换、以及通过VBA编程实现汉字数字转换等几种方法。
一、常见的汉字数字
在Excel中，常见的汉字数字包括：零、一、二、三、四、五、六、七、八、九、十、百、千、万、亿。我们可以根据实际需要将它们转换成相应的数字。
1.1 阿拉伯数字转汉字
如果你需要将阿拉伯数字转换成汉字，可以使用Excel自带的文字转换功能实现。步骤如下：
步骤：
1.选择需要转换的单元格，点击“数据”选项卡中的“文字转换”。
2.在弹出的窗口中，选择“阿拉伯数字”选项，输入需要转换的数字，点击“确定”。
3.此时选定的单元格中就会显示相应的汉字数字。
1.2 汉字转阿拉伯数字
如果你需要将汉字转换成阿拉伯数字，Excel本身并没有提供直接的函数。但是我们可以通过一些嵌套函数实现。比如，我们可以使用IF函数判断汉字数字的位数，并将其转换为相应的阿拉伯数字，然后再使用SUM函数求和。
步骤：
1.选择一个空余的单元格，输入以下公式（假设需要转换的汉字数字在A1单元格中）：
```
=SUM(IF(MID(A1,ROW($A$1:$A$15),1)="一",1,IF(MID(A1,ROW($A$1:$A$15),1)="二",2,IF(MID(A1,ROW($A$1:$A$15),1)="三",3,IF(MID(A1,ROW($A$1:$A$15),1)="四",4,IF(MID(A1,ROW($A$1:$A$15),1)="五",5,IF(MID(A1,ROW($A$1:$A$15),1)="六",6,IF(MID(A1,ROW($A$1:$A$15),1)="七",7,IF(MID(A1,ROW($A$1:$A$15),1)="八",8,IF(MID(A1,ROW($A$1:$A$15),1)="九",9,IF(MID(A1,ROW($A$1:$A$15),1)="零",0,IF(MID(A1,ROW($A$1:$A$15),1)="十",IF(LEN(A1)>1,10,1),IF(MID(A1,ROW($A$1:$A$15),1)="百",100,IF(MID(A1,ROW($A$1:$A$15),1)="千",1000,IF(MID(A1,ROW($A$1:$A$15),1)="万",10000,IF(MID(A1,ROW($A$1:$A$15),1)="亿",100000000,0)))))))))))=0,"",IF(MID(A1,LEN(A1),1)="亿",SUM(IF(MID(A1,ROW($A$1:$A$15),1)="亿",IF(LEN(A1)-ROW($A$1:$A$15)>=9,MID(A1,ROW($A$1:$A$15),1)*100000000,IF(LEN(A1)-ROW($A$1:$A$15)>=5,MID(A1,ROW($A$1:$A$15),1)*10000,IF(LEN(A1)-ROW($A$1:$A$15)>=1,MID(A1,ROW($A$1:$A$15),1),0)),0)),SUMIF(ROW($A$1:$A$15),"<="&LEN(A1)-i+1,MID(A1,ROW($A$1:$A$15),1)*1),0)),0))
```
强调一下，上述公式是一个非常庞大的公式，包含了很多IF函数和嵌套，我们需要将其全部复制到一个单元格中。
2.然后按下回车键，就能够将汉字数字转换成相应的阿拉伯数字。
二、通过函数实现汉字数字转换
如果经常需要将汉字数字转换成阿拉伯数字，我们可以使用Excel VBA编写一个转换函数，以便在任何地方使用。跟据我们上面介绍过的IF函数嵌套的思路，我们可以先将汉字数字进行分类，然后再进行数字转换。
步骤：
1.在Excel中打开一个新的工作簿，按下“Alt+F11”打开VBA编辑器。
2.在VBA编辑器中，选择“插入”选项卡，选择“模块”。
3.在新的模块中输入以下代码：
```
Function HanDigi2Num(ByVal Str1 As String) As Long
Dim i As Integer, Num As Long
Num = 0
For i = 1 To Len(Str1)
Select Case Mid(Str1, i, 1)
Case "一"
Num = Num + 1
Case "二"
Num = Num + 2
Case "三"
Num = Num + 3
Case "四"
Num = Num + 4
Case "五"
Num = Num + 5
Case "六"
Num = Num + 6
Case "七"
Num = Num + 7
Case "八"
Num = Num + 8
Case "九"
Num = Num + 9
Case "零"
Num = Num + 0
Case "十"
If i = 1 Then
Num = Num + 10
ElseIf Mid(Str1, i - 1, 1) = "一" Then
Num = Num + 10
Else
Num = Num + 10 * Val(Mid(Str1, i - 1, 1))
End If
Case "百"
Num = Num + 100 * Val(Mid(Str1, i - 1, 1))
Case "千"
Num = Num + 1000 * Val(Mid(Str1, i - 1, 1))
Case "万"
Num = Num + 10000 * Val(Mid(Str1, i - 1, 1))
Case "亿"
Num = Num + 100000000 * Val(Mid(Str1, i - 1, 1))
End Select
Next i
HanDigi2Num = Num
End Function
```
4.保存文件并关闭VBA编辑器。
5.在Excel表格中，可以在需要转换的单元格中输入=HanDigi2Num（汉字数字）的形式，即可将汉字数字转换成阿拉伯数字。
三、通过VBA编程实现汉字数字转换
如果需要将汉字数字转换成阿拉伯数字的工作非常频繁，我们可以将上述代码嵌入Excel的“开发者”选项卡中，以便更加方便地使用。
步骤：
1.按下“Alt+F11”打开VBA编辑器。
2.在左侧的项目中选择“Workbook”，然后选择“新建宏”。
3.在新建宏的界面中输入以下代码：
```
Private Sub Workbook_Open()
Application.OnKey "^+n", "HanDigi2Num"
End Sub
Function HanDigi2Num(Optional ByVal Str1 As String) As Long
If Str1 = "" Then Str1 = Application.InputBox("请输入需要转换的汉字数字：", "汉字数字转阿拉伯数字", Type:=2)
...
End Function
```
4.点击“保存”按钮，然后关闭VBA编辑器。
5.现在，可以在Excel的任何单元格中使用这个函数了。比如，在需要转换的单元格中输入=HanDigi2Num（汉字数字）的形式，然后按下Ctrl+Shift+N快捷键，就可以将汉字数字转换成阿拉伯数字。
总结归纳
本文介绍了在Excel中将汉字数字转换成阿拉伯数字的几种常见方法：使用Excel自带的文字转换功能、使用嵌套函数进行数字转换、使用VBA编写转换函数和将代码嵌入Excel的开发者选项卡中。其中最常用的方法是第二种，使用嵌套函数进行数字转换，最好自己动手尝试一下。
