Excel vba replace comma with

Question

I want to use this vba code in my sheet to replace any commas in column D with a full stop:

ActiveSheet.Columns("D").Replace _
What:=",", Replacement:=".", _
SearchOrder:=xlByColumns, MatchCase:=True

I had it working I'm sure for a minute but then it didn't! Any ideas???

Answer 1

You said in a comment that you put the code in Worksheet_SelectionChange . Put the code in a module instead, then run it when you want to use it. Then it will work for any sheet.

Answer 2

您已经替换了所有逗号，它将不再起作用。

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Columns("D").Replace What:=",", Replacement:=".", SearchOrder:=xlByColumns, MatchCase:=True

End Sub

It does work like this. Do not add the "_"