Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как распределить текст по столбцам?
 
#1
16.06.2022 19:27:23
С помощью VBA или другими способами...


На вскидку я так понимаю, что нужно выполнить следующую логику:
1. Получить текст ячейки;
2. Результат:
ЧУП «Мобильный город»
Вороново, ул. Литовчика, 43

Пн: выходной
Вт - Пт: 9:30 - 16:30
Сб: 9:30 - 13:30
Вс: выходной
375296435132
3. Логика распределения строк текста:
  п.1 Первую строку перенести в поле "Организация";
  п.2 Вторую строку разделить по первой запятой ",";
  п.3 Вторую строку первое слово перенести в поле "Город";
  п.4 Вторую строку остальную часть перенести в поле "Адрес";
  п.5 Последню строку перенести в поле "Телефон";
  п.6 Оставшийся текст перенести в поле "График";
 
Вопрос.
 Правильно ли я понимаю логику ?
Буду признателен если кто подскажет фрагменты кода по каждому(или по отдельным) пункту или всё решение...
Изменено: excel_pl - 16.06.2022 19:28:36
 
 
 
#2
16.06.2022 19:49:50
Код
часть формул
Организация:
=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[1]")
Город:
=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ([@Удалить];",";СИМВОЛ(10));СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[2]")
Адрес:
=ПСТР(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[2]");ПОИСК(",";ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[2]");1)+2;1000)
Телефон:
=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[number()=.]")
Изменено: Тимофеев - 16.06.2022 20:03:24
 
 
 
#3
16.06.2022 20:12:32
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9      часть формул    Организация:    =ФИЛЬТР.XML(  "<j><i>"  &ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);  "</i><i>"  )&  "</i></j>"  ;  "//i[1]"  )    Город:    =ФИЛЬТР.XML(  "<j><i>"  &ПОДСТАВИТЬ(ПОДСТАВИТЬ([@Удалить];  ","  ;СИМВОЛ(10));СИМВОЛ(10);  "</i><i>"  )&  "</i></j>"  ;  "//i[2]"  )    Адрес:    =ПСТР(ФИЛЬТР.XML(  "<j><i>"  &ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);  "</i><i>"  )&  "</i></j>"  ;  "//i[2]"  );ПОИСК(  ","  ;ФИЛЬТР.XML(  "<j><i>"  &ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);  "</i><i>"  )&  "</i></j>"  ;  "//i[2]"  );1)+2;1000)    Телефон:    =ФИЛЬТР.XML(  "<j><i>"  &ПОДСТАВИТЬ([@Удалить];СИМВОЛ(10);  "</i><i>"  )&  "</i></j>"  ;  "//i[number()=.]"  )  
 

Поле "График" пустое.
С полем "График" ничего сделать нельзя?
Изменено: excel_pl - 16.06.2022 20:13:02
 
 
 
#4
16.06.2022 20:57:40
excel_pl,  зачем Вы цитируете формулы? Какой в этом смысл?
 
 
 
#5
17.06.2022 08:13:28
Код
График:
=ПСТР(ПСТР([@Удалить];1;ПОИСК([@Телефон];[@Удалить];1)-1);ПОИСК([@Адрес];[@Удалить];1)+ДЛСТР([@Адрес])+1;1000)
Примечание:
=ПСТР([@Удалить];ПОИСК([@Телефон];[@Удалить];1)+13;1000)
 
 
 
Страницы: 1
Наверх