Разделение текста.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разделение текста. (Формулы/Formulas)

Разделение текста.

ilikeread

Дата: Четверг, 06.10.2016, 10:36 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 56

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

День добрый.
Возможно ли разделить текст? (см приложенный файл)
формула или макрос не важно.
Поиском по форуму нашёл похожие темы , но там тексты с разными разделительными символами.
у меня же нет таких символов, единственно есть нумерация римскими цифрами и арабскими.
но как это прикрутить для разделения не знаю.

К сообщению приложен файл: 4245794.xlsm (13.1 Kb)

Ответить

buchlotnik

Дата: Четверг, 06.10.2016, 11:42 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Вариант на регулярках: [vba]

Код

Function rep(t$, i <img rel="usm" src="/sml2/wacko.gif" border="0" align="absmiddle" alt="%)" />
    Dim s$
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\s([0-9IVX]+\.)"
        s = .Replace(t, "@$1")
        s = "@" & s
        .Pattern = "@[^@]+"
        s = .Execute(s)(i)
        s = Replace(s, "@", "")
        rep = s
    End With
End Function

[/vba]

К сообщению приложен файл: 4743301.xlsm (27.7 Kb)

Сообщение отредактировал buchlotnik - Четверг, 06.10.2016, 11:57

Ответить

Pelena

Дата: Четверг, 06.10.2016, 12:01 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

А я перекинула в Word, там сделала несколько замен с помощью подстановочных знаков, а потом обратно в Excel

К сообщению приложен файл: 4685994.xlsm (22.2 Kb) · 1259680.docx (21.4 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

buchlotnik

Дата: Четверг, 06.10.2016, 12:12 | Сообщение № 4

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Цитата

А я перекинула в Word

прикол - я поступил также, собственно, паттерн для функции изначально в Word-е и написал
UPD
вот так поточнее будет: [vba]

Код

Function rep(t$, i%)
    Dim s$
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\.(\d+)"
        s = .Replace(t, ",$1")
        .Pattern = "\s(([0-9]+|[IVX]+)\.)"
        s = .Replace(s, "@$1")
        s = "@" & s
        .Pattern = "@[^@]+"
        s = .Execute(s)(i)
        s = Replace(s, "@", "")
        rep = s
    End With
End Function

[/vba]

К сообщению приложен файл: 6297050.docx (20.5 Kb) · 7655013.xlsm (27.6 Kb)

Сообщение отредактировал buchlotnik - Четверг, 06.10.2016, 13:21

Ответить

ilikeread

Дата: Четверг, 06.10.2016, 13:29 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 56

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

buchlotnik, Pelena, спасибо большое

Pelena, а можно поподробнее про Word (...там сделала несколько замен с помощью подстановочных знаков...)

buchlotnik, .~~..Вариант на регулярках:... не всё корректно разделил, но 99,9% работы выполнил~~

Что – ^0032([0-9IVX]@.)
На что - ^p\1
Это в найти-заменить нужно вставлять? попробовал не получилось.

UPD второй вариант отработал 100%
теперь задача понять и осознать как это работает