vba - セル範囲のExcel VBAの置換関数

Question

Excel ファイル内の 1 文字を別の文字に置き換える必要があります。

次のReplace関数を使用しましたが、一部のセルで 1024 文字の制限を超えているため、そこで停止します。

Sub Replace()

    With Sheets("Sheet1").Range("A1:A629")   

      .Cells.Replace ",", ";", xlPart, xlByRows, False

    End With

End Sub 

Substitute私は関数が行うことを知りました

Cells(1, 2) = "=SUBSTITUTE(A1,"","","";"")"

しかし、それをセル範囲に使用するにはどうすればよいですか?

Answer 1

これを試して

Sub Replace()

    Dim rng As Range, cell As Range
    Set rng = Sheets("Sheet1").Range("A1:A629")

    For Each cell In rng
        cell = WorksheetFunction.Substitute(cell, ",", ";")
    Next
End Sub