Удаление символа в строках VBA

Question

Я пытался придумать, как отформатировать номера SSN наших клиентов в таблице Excel, чтобы убрать все "-".

пример: 123-45-6789 превращается в 123456789

Все мои другие источники потерпели неудачу, и я не нашел здесь ничего, что могло бы мне помочь.

редактировать: мне нужно это будет работать на весь столбец

Answer 1

Выберите ячейки, которые вы хотите обработать, и запустите этот короткий макрос:

Sub Ken()
    Dim r As Range, v As String

    For Each r In Intersect(Selection, ActiveSheet.UsedRange)
        v = r.Text
        If v <> "" Then
            r.NumberFormat = "@"
            r.Value = Replace(v, "-", "")
        End If
    Next r
End Sub