摘要: Alt+F11,插入,模块 Function RemoveChinese(rng As Range) s = Len(rng.Text) For i = 1 To s txt = StrConv(Mid(rng.Text, i, 1), vbNarrow) txt2 = StrConv(Mid(rn 阅读全文
posted @ 2018-01-23 20:38 风谷逍遥客 阅读(5042) 评论(0) 推荐(0) 编辑