Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Rengame113 от 21 июня 2018, 15:08

Название: VBA: Удаление символов и цифр в начале текста
Отправлено: Rengame113 от 21 июня 2018, 15:08
Возможно удаление в начале строки этих символов: : , . пробел и цифр (0-9) до первой буквы?
Например
: 12 8 Привет

Чтобы осталось только Привет.
Название: Re: VBA: Удаление символов и цифр в начале текста
Отправлено: Администратор от 21 июня 2018, 15:22
Для русского и английского алфавита:

Макрос
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
[свернуть]
Название: Re: VBA: Удаление символов и цифр в начале текста
Отправлено: Rengame113 от 21 июня 2018, 15:51
работает спасибо