汉字转拼音缩写的VBA宏
DimiAsIntegerDimjAsIntegerDimsumAsIntegerDimbeginrowAsIntegerDimstrAsStringDimGetPyAsStringsum=ActiveWindow.RangeSelection.Rows.CountForEachrngInActiveWindow.RangeSelection.AreasForEachcelInrngstr=cel.ValueGetPy=""Fori=0To
下载地址
用户评论
要是能全拼就好了
不好用,字太少了.