写了个宏 用下试试
假如246° 19′20〃等数字存放在A列
Sub MM()
Columns("A:A").Select
Selection.Replace What:="° ", Replacement:=" "
Selection.Replace What:="′", Replacement:=" "
Selection.Replace What:="〃", Replacement:=""
End Sub
存放在其他列就将Columns("A:A").Select改成里的A:A替换成对应列号