Excel-vba Columns（）。replace兩列

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代碼。 在列中以“，”

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

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