Вытащить из ячейки символы - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы