如何在EXCEL中 把01自动切换成大写的零壹或壹零零壹的公式是什么？

好象只能自己写个宏原完成。
如：
Public Function DaXie(Str_Num As String) As String
Dim i As Integer
Dim Str_DaXie As String
Dim Num_I As Integer
Str_DaXie = "壹贰叁肆伍陆柒捌玖"
For i = 1 To Len(Str_Num)
Num_I = Val(Mid(Str_Num, i, 1))
Select Case Num_I
Case 0
DaXie = DaXie & "零"
Case 1, 2, 3, 4, 5, 6, 7, 8, 9
DaXie = DaXie & Mid(Str_DaXie, Num_I, 1)
End Select
Next i
End Function