VBA - удаление символов, цифр

Question

я есть книга с колонкой («М» или «13»), глядя, как это:

1.1 Residential - Bla bla bla<br> 
1.1 Residential: Bla bla bla<br> 
1.2 - Residential Bla bla bla<br> 
2.2 - 1.3 Residential Bla bla bla<br> 
3.1 - Multi Residential Bla bla bla<br> 
etc..<br> 

Старая индексирование номенклатура используется мой клиент пошел от 1,1 до 3,3

Мне нужно очистить эту колонку и избавиться от всех этих трех цифр, делая любой текст, который появляется после них, все еще появляется внутри ячейки.

Пример:

Residential - Bla bla bla<br> 
Residential: Bla bla bla<br> 
Residential Bla bla bla<br> 
Residential Bla bla bla<br> 
Multi Residential Bla bla bla<br> 
etc.. 

Answer 1

Попробуйте это, он удаляет номера, период, дефис и пробел в начале каждой клетки в колонке М. Я только сделал 5, но изменить его, чтобы сделать любое количество клеток:

Dim i As Integer 
For i = 1 To 5 
    Dim j As Integer 
    Dim value As String 
    value = Range("M" & i) 

    For j = 1 To Len(value) 
    Select Case Mid(value, j, 1) 
    Case 0 To 9 
    Case "-" 
    Case "." 
    Case " " 
    Case Else 
     Exit For 
    End Select 
    Next 
    Range("M" & i) = Mid(value, j, Len(value)) 
Next 

Если вы предпочитаете не беспокоиться об указании количества клеток, и пусть делают все ячейки, содержащие значение, как Jonnus ответ, то вы можете попробовать это:

Dim i As Integer 
i = 1 
Do Until Range("M" & i) = "" 
    Dim j As Integer 
    Dim value As String 
    value = Range("M" & i) 

    For j = 1 To Len(value) 
    Select Case Mid(value, j, 1) 
    Case 0 To 9 
    Case "-" 
    Case "." 
    Case " " 
    Case Else 
     Exit For 
    End Select 
    Next 
    Range("N" & i) = Mid(value, j, Len(value)) 
    i = i + 1 
Loop 

Answer 2

в качестве альтернативы, следующий код будет цикл через колонки 13, глядя на каждую ячейку, в свою очередь, находя первый буквенный символ, и вырезают все символы, предшествующие ему

Dim rowNum As Integer 
Dim curValue as String 

RowNum = 1 

' Loop though all cells in the column until a blank one is found 
Do While Cells(13, rowNum).Value <> "" 

    ' Get the current value of the cell 
    curValue = Cells(13, rowNum).Value 

    ' Loop through all the characters until the first alpha character is 
    ' found, and save the index of this first character 
    Dim x as Long 
    For x = 1 to Len(curValue) 
     sChar = Mid(curValue, x, 1) 
     If sChar Like "[a-zA-z\)\(\[\]]" Then 
      firstChar = x 
      Exit For 
     End If 
    Next x 

    ' Set the value of the cell to be the current value starting from 
    ' the first alpha character 
    Cells(13, rowNum).Value = Right(curValue, Len(curValue) - x) 

    ' Go to the next row 
    rowNum = rowNum + 1 
Loop