Excel-vba Columns（）。replace为两列

下面的代码改变了D列的逗号到句点。我希望D和G都发生这种情况。

Option Explicit Sub ReplaceDoTwComma() Worksheets("Sheet1").Columns("D").replace _ What:=",", replacement:=".", LookAt:=xlPart End Sub 

我努力了

 Worksheets("Sheet1").Columns("D").replace _ Worksheets("Sheet1").Columns("G").replace _ 

或Columns("D", "G")或Columns ("D" & "G")但没有运气。

我很好的参考是Excel VBA代码来replace所有“。” 由“，”在一列中

任何指导将不胜感激。 谢谢！

Answer 1

做两个单独的电话，记住_表示续行，所以两行都需要重复：

 Option Explicit Sub ReplaceDoTwComma() Worksheets("Sheet1").Columns("D").replace _ What:=",", replacement:=".", LookAt:=xlPart Worksheets("Sheet1").Columns("G").replace _ What:=",", replacement:=".", LookAt:=xlPart End Sub 

要么

 Option Explicit Sub ReplaceDoTwComma() Worksheets("Sheet1").Range("D:D,G:G").replace _ What:=",", replacement:=".", LookAt:=xlPart End Sub