Как фразу в строке Excel разделить на три части по некоторому условию и скопировать в три другие яче

[Andrey_]

Доброго времени суток!
есть одна непростая для меня задача и даже не знаю как к ней подступиться, может кто подскажет?
а задача следующая:
есть довольно большая таблица в Excel, состоящая из одного столбца и неск. сотен строк (пусть столбец А). Информация в строках представляет собой фразы разной длины, но все они построены одним образом:

*****:******==***********

где ******* - некоторые фразы или выражения, включая пробелы.

так вот необходимо каждую такую строчку таблицы из ячейки А скопировать с соседние три ячейки В, С, D таким образом, чтобы в ячейке В была фраза стоящая до первого символа ":", в ячейке С была фраза стоящая между знаками ":" и "==", и в ячейку D скопировать остальную часть после "==",
при этом во фразах после первого знака ":" данный знак также может встречаться, а вот знак "==" сущестсует в строке только в одном экземпляре:)

а затем мне всю информацию из этих трех ячеек B,C,D после редактирования необходимо обратно скомпоновать в ячейку E. но это как я понимаю уже другой макрос:)

буду благодарен любому содействию или подсказке в действиях.
заранее спасибо

[Алексей++]

Andrey_, не подскажу , как в макросах, а при помощи формул я бы сделал так - см. аттач

думаю не трудно будет перевести в макрос с циклом

[Sla]

извратившись все это можно построить текстовыми функциями

пишу по русски:

определяем длину строки;
находим положение "первого разделителя";
находим положение "второго разделителя";
удаляем все что справа от "первого разделителя" - столбец 2;
удаляем все что от "первого разделителя"+удаляем все что справа "второго разделителя" - столбец 3;
удаляем все что слева от "второго разделителя" - столбец 4;

ну СЦЕПИТЬ ячейки сам сможешь - столбец 5

good luck

[Andrey_]

Спасибо всем!

[HandKot]

доработать напильником

Код:

Public Function Test()
    Dim a() As String
    Dim b() As String
    
    a = Split(Range("A1").Value, ":")
    b = Split(Range("A1").Value, "==")
    
    Range("B1") = a(0)
    Range("C1") = Replace(b(0), a(0), "")
    Range("D1") = b(1)
End Function

[Andrey_]

большое спасибо HandKot, это как раз то что нужно, в ячейке получается текст. не мог бы ты тогда еще подсказать оператор для сцепления ячеек, чтобы тоже получался текс в ячейке?
Спасибо

[Sla]

а плюсом пробовал?

[Andrey_]

нет, не пробовал. его в скрипте необходимо прописывать или в формуле? дело в том что мне нужно чтобы в ячейке получился текст, который я бы мог редактировать.

[Sla]

Andrey_,  а ты попробовал? хоть где-нибудь?

Ф1

[Алексей++]

Andrey_, в формуле "СЦЕПИТЬ()" , в программе пробуй

... = Range("X1").Value+Range("X2").Value

[Sla]

Алексей1153++,
дык https://forum.shelek.ru/index.php/topic,13258.msg159438.html#msg159438
там все написато
еще лучше написато в Ф1

[Andrey_]

ок, спасибо народ! где-нибудь попробу...
дело в том что никогда не имел дел с макросами до этого, формулами  я конечно пробовал, но это же не текст, а мне нужен именно текст.
спасибо!

[anton]

всем привет!

вот более усовершенственный вариант:

Sub Delimiter()
     Dim a As Range
         
     For Each a In Selection
     a = Split(a.Value, ".")
     Next
         
End Sub

Всем спасибо, поздравляю с наступающим днем независимости http://***.***/
 )

[Naghual]

anton, и что это???
Плюс ко всему - некрофилия не приветствуется.

[ppp555]

ребят, прошу помощи. в экселе просто пользователь, постоянно приходится ручками доставать некоторую часть из ячеек большой таблицы. научился это делать функцией ПРАВСИМ, но эта часть всегда имеет разное кол-во символов, поэтому все равно извращение ручками помогите автоматизировать, пожалуйста! вот пример некоторых ячеек:

Абразивная бумага-диск для липучки 40 3581-125-040
Зубило плоское для перфоратора. хвостовик СДС+ 40/250 мм 29363-40-250
Ключ трубный рычажной №2.1.5" 27337-2

Из них необходимо получить в отдельных ячейках эти данные:
3581-125-040
29363-40-250
27337-2

Перед ними всегда есть пробел.

Заранее СПАСИБО!

[Dimka]

Надо такую функцию, которая находит последний пробел в строке. И результат этот функции вставить в ПРАВСИМ. См. функции поиска в строке.

[ppp555]

Надо такую функцию, которая находит последний пробел в строке. И результат этот функции вставить в ПРАВСИМ. См. функции поиска в строке.

спасибо и за это.
нашел в нете такое:
1 вариант:
Последний пробел:
{МАКС(ЕСЛИ(ЕОШ(НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) ));"";НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) )))}
Выдернуть номер:
{=ПРАВСИМВ(A1;ДЛСТР(A1)-МАКС(ЕСЛИ(ЕОШ(НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) ));"";НАЙТИ(" ";A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1))) ))))}
2 вариант:
Последний пробел:
{=ДЛСТР(A1)+1-ПОИСКПОЗ(" ";ПСТР(A1;ДЛСТР(A1)+1-СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1);0 )}
Выдернуть номер:
{=ПРАВСИМВ(A1;ДЛСТР(A1)-(ДЛСТР(A1)+1-ПОИСКПОЗ(" ";ПСТР(A1;ДЛСТР(A1)+1-СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1);0 )))}

пробовал создать макрос, ругается на ошибки. не осилил придется ручками выдирать, как обычно.

[Dimka]

ppp555, увы, у меня нет Microsoft Office, чтобы посмотреть. Вариант из OpenOffice не уверен, что будет работать.

[Sla]

Проще|сложнее
написать функцию

Код:

Public Function LastWord(r As Range) as String
  Dim sepearator = ' '
  Dim j As Long
  i = Len(r)
  j = InStrRev(r, " ")
  LastWord = Mid(r, (j + 1), (i - j))
End Function

Вызвать в как формулу
=LastWord(A1);

НЕ ПРОВЕРЯЛ!