VBA: Удаление символов и цифр в начале текста

Автор Rengame113, 21 июня 2018, 15:08

Rengame113

Возможно удаление в начале строки этих символов: : , . пробел и цифр (0-9) до первой буквы?
Например
: 12 8 Привет

Чтобы осталось только Привет.

Администратор

Для русского и английского алфавита:

Макрос
Sub макрос()

    Dim var, i As Long
   
    ' Запись в переменную какого-то текста.
    var = "100 какой-то текст"
   
    ' Цикл по символам.
    For i = 1 To Len(var)
        ' Если символ это русская или английская буква.
        If Mid(var, i, 1) Like "[А-ЯЁа-яёA-Za-z]" Then
            ' Запись в переменную "var" фрагмента от найденной буквы до конца переменной "var".
            var = Mid(var, i)
            ' Остальные символы не смотрим, а выходим из цикла.
            Exit For
        End If
    Next i

End Sub
[свернуть]

Rengame113