Заменить функцию в Excel VBA для диапазона ячеек

Question

Я должен заменить один символ другим в файле 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,"","","";"")" 

Но как я могу использовать, что для диапазона ячеек.

Спасибо

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 

Answer 2

Попробуйте это. Обратите внимание, что он использует функцию VBA Replace, поэтому вам нужно переименовать свою подпрограмму «Заменить».

Sub ReplaceText() 

    For Each c In Sheets("Sheet1").Range("A1:A629").Cells 

     c = Replace(c.Value, ",", ";") 

    Next c 

End Sub 

Примечание: Это будет работать, только если у вас есть значения в ячейках, без формул. Потому что Excel имеет формулу length limit of 1024 characters. Но если у вас есть эта конкретная ошибка, ваши ячейки не должны быть формулами.