Ребята, есть код лучше моего, работает в выделенном диапазоне [vba]
Код
Dim m, arr, i&, c As Range With CreateObject("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = "\D*([\d,]+)(?=\D)" For Each c In Selection.Cells ReDim arr(0 To .Execute(c).Count) For Each m In .Execute(c) arr(i) = m.submatches(0) i = i + 1 Next: i = 0 c(1, 2).Resize(, UBound(arr) + 1) = arr Next End With
[/vba] Пользуйтесь на здоровье
[admin]Оформляйте коды соответствующими тегами![/admin]
Ребята, есть код лучше моего, работает в выделенном диапазоне [vba]
Код
Dim m, arr, i&, c As Range With CreateObject("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = "\D*([\d,]+)(?=\D)" For Each c In Selection.Cells ReDim arr(0 To .Execute(c).Count) For Each m In .Execute(c) arr(i) = m.submatches(0) i = i + 1 Next: i = 0 c(1, 2).Resize(, UBound(arr) + 1) = arr Next End With
[/vba] Пользуйтесь на здоровье
[admin]Оформляйте коды соответствующими тегами![/admin]Геннадий22
Сообщение отредактировал Геннадий22 - Вторник, 26.03.2013, 17:34
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
