下面是一个VBA自定义函数，按ALT＋F11，插入模块，在右面窗口中粘贴下面代码。若B10内容为 中国航天6号a，则在某空白格中输入：=hztopy(B10) 即可Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To h...
