Sub test_21_10_2017_exw() Dim t$, i&: t = Range("C3") With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True For i = 0 To .Execute(t).Count - 1: Range("E3").Offset(, i).Value = CInt(.Execute(t)(i)): Next End With End Sub
[/vba]
fr0st, вариант макроса,кнопка test
[vba]
Код
Sub test_21_10_2017_exw() Dim t$, i&: t = Range("C3") With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True For i = 0 To .Execute(t).Count - 1: Range("E3").Offset(, i).Value = CInt(.Execute(t)(i)): Next End With End Sub
Выделить диапазон с данными, с помощью инструмента НАЙТИ/ЗАМЕНИТЬ удалить лишние символы. Далее с помощью инструмента Текст_по_столбцам (вкладка Данные) разнести цифры по ячейкам. Н все это уйдет 1-3 мин.
Выделить диапазон с данными, с помощью инструмента НАЙТИ/ЗАМЕНИТЬ удалить лишние символы. Далее с помощью инструмента Текст_по_столбцам (вкладка Данные) разнести цифры по ячейкам. Н все это уйдет 1-3 мин.vikttur
Сообщение отредактировал vikttur - Суббота, 21.10.2017, 00:21
fr0st, у Вас нет файл-примера для многих строчек,как вариант,кнопка test2
[vba]
Код
Sub test2() Dim t$, i&, j& With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True For j = 3 To Range("C" & Rows.Count).End(xlUp).Row: t = Range("C" & j) For i = 0 To .Execute(t).Count - 1: Range("E" & j).Offset(, i).Value = CInt(.Execute(t)(i)): Next Next End With End Sub
[/vba]
fr0st, у Вас нет файл-примера для многих строчек,как вариант,кнопка test2
[vba]
Код
Sub test2() Dim t$, i&, j& With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True For j = 3 To Range("C" & Rows.Count).End(xlUp).Row: t = Range("C" & j) For i = 0 To .Execute(t).Count - 1: Range("E" & j).Offset(, i).Value = CInt(.Execute(t)(i)): Next Next End With End Sub