用空格replace点

我试图用空格replace点,它正在工作,但它也正在取代有逗号的值。

例1.506,45被转换为1 506,45

但1,506,45被转换为1 506,45

这是破坏价值观。 任何想法如何取代只有点而不是逗号?

ActiveSheet.Columns("A:A").Select Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False 

我只是使用=SUBSTITUTE()公式:

在附近的一个单元上:

 =SUBSTITUTE(A1, ". ", " ") 

试用=替代(col,oldtxt,newtxt)