Excel的VBA列（）。更換爲兩列

Question

變化下面的代碼逗號期列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 code for replacing all "." by "," in a column

任何指導，將不勝感激。 謝謝！

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