用于替换所有“。”的Excel VBA代码。通过“，”在一列中

Question

我想要一个excel VBA宏来替换所有“。” （点）用“，”（逗号）在一张纸的列中。

当我尝试使用以下代码执行此操作时，仅当单元格值为“。”时才会替换它。但不能取代“。”单元格内部值（即：单板内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

您不需要宏，只需在excel＆gt;中选择相关列即可。 Crtl + h并在找到什么“。”并替换为put“，”并点击替换所有