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.结果如图：