Вытащить из ячейки символы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д