用 Excel VBA 中的函数替换单元格区域

我必须在 Excel 文件中将一个字符替换为另一个字符。

我用过以下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,"","","";"")"

但我该如何将其用于单元格范围呢？

尝试这个

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