在EXECL中 ，按ALT+F11，插入—模块 复制下列代码 ：

Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As[......]

阅读全文