Excel VBA代码，用“，”replace所有“。”

我想有一个excel的VBAmacros，以取代所有的“。” （点）用“，”（逗号）在一张表中的一列中。

当我尝试用下面的代码来实现时，它只会在单元格值为“。”的情况下取代。 但是不能代替“。” 在单元格内的值（即：在单元格5内的D列中1.16应该变为1,16）

Sub ReplaceDoTwComma() Worksheets("Sheet5").Columns("D").Replace _ What:=".", Replacement:=",", _ SearchOrder:=xlByColumns, MatchCase:=True End Sub 

有人可以给我这么好的代码吗？

提前致谢…

Answer 1

添加LookAt:=xlPart选项。

  Worksheets("Sheet5").Columns("D").Replace _ What:=sought, replacement:=replaced, LookAt:=xlPart 

Answer 2

你不需要这个macros，只需在excel> Crtl + h中select相应的列，然后find“”。 并取代放“，”和打replace所有