EXCEL中，如何编制宏？？

Public Function dzfys(n As String) As String
Dim sum As String
sum = ""
For i = 1 To Len(n)
If Asc(Mid(n, i, 1)) <= 57 And Asc(Mid(n, i, 1)) >= 40 Then
sum = sum & Mid(n, i, 1)
End If
Next i
dzfys = Evaluate(sum)
End Function

按Alt+F11，将上述代码粘贴到模块中（没有模块可以右击插入）。
假如你的公式在A1，在A2中得到计算结果，可以在A2中输入
=dzfys(A1)

录制宏的过程：
（工具--宏--录制宏） 然后就开始录制了

但是你这个问题用不着录制宏，有点大动干戈了。你用字符串处理函数就可以实现了。
点击编辑栏边上的fx,然后选择TEXT，里面的substitute应该对你很有用，自己多看看帮助就搞定了

首先是 点击“工具” 其次 设置关于宏的名称和快捷键，然后就开始输入公式，操作完后，注意：“一定要关闭”不然的话宏是一直在记录，很多人就是没有关闭所以不理想，愿你能用此，省很多时间。