Excel 如果A1等于1，则B1等于“一”，A2等于2，则B2等于“二”

用自定义函数可以完成。

例如有数据表如图：

第一步：点击开发工具-visual basic

第二步：插入模块，编制代码如下：

Function dasz(a As Integer) As String

Set d = CreateObject("scripting.dictionary")

d.Add 1, "一"

d.Add 2, "二"

d.Add 3, "三"

d.Add 4, "四"

d.Add 5, "五"

d.Add 6, "六"

d.Add 7, "七"

d.Add 8, "八"

d.Add 9, "九"

d.Add 10, "十"

dasz = d(a)

End Function

第三步：在B1输入公式：=dasz(A1)。

第四步：将B1公式下拉至B10.结果如图：

直接用函数不会。但可以间接达到目的：

在B1输入公式=A1，然后向下拖动B列复制公式，达到A列输入什么数字B列就自动填充什么数字的效果。然后选中B列，格式菜单-单元格-数字选项卡-特殊-中文小写数字，如图所示：

如果数字三位数以上显示####的话请把B列拉宽即可。

先在B1输入公式，"=A1"，然后设置B1单元格格式，设置成中文小写，就Ok了。

设置B1=A1,B2=A2,同时设置B列数字格式为特殊－中文小写数字，相信你能做到的！

右键设置单元格 数字 特殊 中文大写 确定