Sub 全角转换为半角()'使用前需先选中要替换的区域Dim fullshape, halfshape As String, i As Integer '定义fullshape(全角)、half...