Удаление дефисов из чисел в Excel VBA

Question

Я новичок в Excel VBA и мне нужна помощь в удалении дефисов из документа Excel.Я обычно использую python, и могу просто использовать .strip, мне было интересно, есть ли эквивалент в Excel.Ячейка, из которой я буду снимать дефисы, является статической, поэтому я думаю, что сама ячейка может быть жестко закодирована.

Я пытаюсь перейти от

233-79-01 к 2337901.

Я пробовал следующие строки кода

  Sub striphyphen()

  A5 = replace(A4,'-','')

  End Sub

Я получаю ошибку компиляции, и не знаю, почему.

Любая помощь будет оценена

Answer 1

Проблема в том, что вы неправильно ссылаетесь на ячейки.То, как вы это делаете, это способ ссылки на переменные (как и на любом другом языке).

Для ссылки на ячейку вы можете использовать одно из следующего (например, ячейка A4):

Cells(4, 1) ' Cells(row, column)
Range("A4")
[A4]

Answer 2

Вы можете использовать replace как сказано @ BigBen и @ JvdV

Sub Test()
Dim myString as String
Dim newString as String

myString = "233-79-01"

newString = replace(myString, "-", "")

MsgBox newString

End Sub

Примечание То, что вы также можете установить mystring = Cells(4,1).Value или mystring = Range("A4").Value