Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Разделить текст по множеству делителей VBA
 
Добрый день. Подскажите пожалуйста, вот есть у меня например текстовая строка "индекс1 что то индекс2 что то еще индекс3 какой то текст", слова индекс1 и.т.д. мне заранее известны, как можно разделить этот текст по определенным ячейкам в соответствии с этими индексами с помощью VBA? Пример во вложении.
 
Код
Sub qq()
    Dim txt$, ar, spl, ar1(), i&, j&
    txt = [b1].Value
    ar = Array("индекс1", "индекс2", "индекс3")
    For i = 0 To UBound(ar)
        txt = Replace(txt, ar(i), "|" & ar(i) & "|")
    Next
    spl = Split(txt, "|")
    ReDim ar1(1 To 2, 1 To UBound(spl) \ 2)
    For i = 1 To UBound(spl) Step 2
        j = j + 1
        ar1(1, j) = spl(i)
        ar1(2, j) = spl(i + 1)
    Next
    [b10].Resize(2, UBound(ar1, 2)).Value = ar1
End Sub
 
RAN,Спасибо, разобрался)
Страницы: 1
Читают тему (гостей: 1)
Наверх