Я хотел бы удалить завершающие нули из excel. Но когда я пытаюсь использовать функцию-заменитель, я получаю функцию не определенную ошибку

Question

Если я использую функцию Trim with Replace как MyCell.Value = Trim(Replace(MyCell.Value, Chr(160), Chr(32))), она удаляет мои ведущие нули.

Sub TrimText() 
    Dim MyCell As Range 
    On Error Resume Next 
     Selection.Cells.SpecialCells(xlCellTypeConstants, 23).Select 
     For Each MyCell In Selection.Cells 
      MyCell.Value = TRIM(SUBSTITUTE(G7, CHAR(160), " ")) 
     Next 
    On Error GoTo 0 
End Sub 

Answer 1

Ваша проблема не Substitute функция, но CHAR. Вместо этого используйте Chr.

UPDATE

К сожалению, также Подставим неправильно. Напишите WorksheetFunction.Substitute(...).

SUBSTITUTE и CHAR просто работают как функции Excel, но не как функции VBA так, как вы их используете.

Answer 2

Sub TrimText() 
    Dim MyCell As Range 
    On Error Resume Next 
     Selection.Cells.SpecialCells(xlCellTypeConstants, 23).Select 
     For Each MyCell In Selection.Cells 
      'Range("K:K").Select 
      Selection.NumberFormat = "@" 
      MyCell.Value = Trim(Replace(MyCell.Value, Chr(160), Chr(32))) 
     Next 
    On Error GoTo 0 
End Sub