Вытащить из ячейки символы - VBA

Узнай цену своей работы

Формулировка задачи:

подскажи пожалуйста, как вытащить символы (буквы и пр.) после цифр из ячейки? т.е. предполагаю что надо сначала определить последнюю (слева на право) цифру, а затем вытащить все что есть после нее
массив правильный ответ
про 123456789 прот прот
"12345678, 321 ,ййй ,ййй
8777лл "п"ро лл "п"ро
456 ро 123458  
ццц 444 длдлд длдлд

Решение задачи: «Вытащить из ячейки символы»

textual
Листинг программы
Sub pr2()
    Dim x As Range
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\D+$"
        For Each x In Selection
            If .test(x) Then x.Offset(, 1) = .Execute(x)(0) '.Replace(x, "")
        Next
    End With
End Sub

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы