Разбить на колонки

Дата: Понедельник, 24.11.2014, 17:26 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Всем привет.
Как разбить на три колонки ?

Северные Сады нас защитят

Дата: Понедельник, 24.11.2014, 17:30 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

существует несколько вариантов, но без вашего файла решения не будет...

ЮMoney 41001841029809

koteg

Дата: Понедельник, 24.11.2014, 17:37 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2010

Код

=ИНДЕКС(Лист1!$A:$A;3*СТРОКА()-2;1)

Код

=ИНДЕКС(Лист1!$A:$A;3*СТРОКА()-1;1)

Код

=ИНДЕКС(Лист1!$A:$A;3*СТРОКА();1)

Дата: Понедельник, 24.11.2014, 17:49 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

koteg, а на каком основании Вы хулиганите?
http://www.excelworld.ru/forum/5-12145-1

ЮMoney 41001841029809

Дата: Понедельник, 24.11.2014, 17:52 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Nic70y, все становится в одну строку, но в одной колонке

Северные Сады нас защитят

Дата: Понедельник, 24.11.2014, 17:55 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

ShuteRR, нарисуйте пример в файле excel, то что есть и что надо, вот и всё...

ЮMoney 41001841029809

Дата: Понедельник, 24.11.2014, 17:59 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Вот файл, а вот так бы хотелось(

К сообщению приложен файл: 4021892.xls (69.0 Kb)

Северные Сады нас защитят

Дата: Понедельник, 24.11.2014, 18:31 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

Так надо?

Код

=ЛЕВБ(A1;ПОИСК(СИМВОЛ(10);A1)-1)

Код

=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК(СИМВОЛ(10);A1)+3;256);СИМВОЛ(10);ПОВТОР(" ";99));99))

Код

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;B1;);C1;);СИМВОЛ(10);)

b,c,d соот.

К сообщению приложен файл: 18-45.xls (71.5 Kb)

ЮMoney 41001841029809

Дата: Понедельник, 24.11.2014, 18:35 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Цитата Nic70y, 24.11.2014 в 18:31, в сообщении № 8

Так надо?

А есть возможность чтобы он не писал в каждой строке, (ТЕЛЕФОН, ГОРОД, ЕМАИЛ)?

Северные Сады нас защитят

krosav4ig

Дата: Понедельник, 24.11.2014, 19:30 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

я тут опять монстра наворотил

Код

=ЕСЛИОШИБКА(ПСТР(ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТА ВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" ");1;ПОИСК(B$1&": ";ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" "))+ДЛСТР(B$1)+1;);1;ЕСЛИОШИБКА(ПОИСК(СИМВОЛ(10);ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" ");1;ПОИСК(B$1&": ";ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" "))+ДЛСТР(B$1)+2;));ДЛСТР(ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email! $A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" ");1;ПОИСК(B$1&": ";ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" "))+ДЛСТР(B$1)+1;))));"")

К сообщению приложен файл: 4021892.xlsx (57.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 24.11.2014, 19:36

Дата: Понедельник, 24.11.2014, 20:02 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

добавим чуть-чуть

Код

=ПОДСТАВИТЬ()

К сообщению приложен файл: 19-1.xls (72.0 Kb)

ЮMoney 41001841029809

gling

Дата: Понедельник, 24.11.2014, 21:25 | Сообщение № 12

Группа: Друзья

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

Сообщений: 2635

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

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

2010

Вариант с UDF таблицу нужно протянуть.

К сообщению приложен файл: 5832195.xls (94.0 Kb)

ЯД-41001506838083

krosav4ig

Дата: Понедельник, 24.11.2014, 23:05 | Сообщение № 13

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

и еще до кучи

К сообщению приложен файл: 4021892.zip (25.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 25.11.2014, 01:52

Дата: Вторник, 25.11.2014, 06:18 | Сообщение № 14

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Цитата krosav4ig, 24.11.2014 в 19:30, в сообщении № 10

=ЕСЛИОШИБКА(ПСТР(ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТА ВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" ");1;ПОИСК(B$1&": ";ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" "))+ДЛСТР(B$1)+1;);1;ЕСЛИОШИБКА(ПОИСК(СИМВОЛ(10);ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" ");1;ПОИСК(B$1&": ";ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(Email!$A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" "))+ДЛСТР(B$1)+2;));ДЛСТР(ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(EmailE mail!$A2 $A2;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" ");1;ПОИСК(B$1&": ";ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(undefined;СИМВОЛ(9);" "));" ";" ");СИМВОЛ(13);СИМВОЛ(10));" "&СИМВОЛ(10);СИМВОЛ(10));СИМВОЛ(10)&" ";СИМВОЛ(10));" ";" ");СИМВОЛ(10);" "));" ";СИМВОЛ(10));" ";" "))+ДЛСТР(B$1)+1;))));"")

Судя по файлу твой метод работает очень круто, но как разобраться самому с ним( Не понимаю как применить на другую половину файла. Видео тутор бы :))

Северные Сады нас защитят

Сообщение отредактировал ShuteRR - Вторник, 25.11.2014, 07:16

krosav4ig

Дата: Вторник, 25.11.2014, 12:29 | Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

ShuteRR, вот нормальная формула

Код

=ЕСЛИОШИБКА(ПСТР($A2;ПОИСК(B$1&": ";$A2)+ДЛСТР(B$1)+2;ЕСЛИОШИБКА(ПОИСКПОЗ(1;МУМНОЖ(-(ПСТР($A2;СТРОКА(ДВССЫЛ((ПОИСК(B$1&": ";$A2)+ДЛСТР(B$1)+2)&":"&ДЛСТР($A2)));1)=СИМВОЛ({10;13}));{1:1})^0;);ДЛСТР($A2)));"")

$A2 - ячейка с текстом, B$1 - заголовок столбца

К сообщению приложен файл: 4021892-1-.xlsx (40.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Дата: Вторник, 25.11.2014, 13:26 | Сообщение № 16

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Цитата krosav4ig, 25.11.2014 в 12:29, в сообщении № 15

huteRR, вот нормальная формула

[Перевод / Translate]
=ЕСЛИОШИБКА(ПСТР($A2;ПОИСК(B$1&": ";$A2)+ДЛСТР(B$1)+2;ЕСЛИОШИБКА(ПОИСКПОЗ(1;МУМНОЖ(-(ПСТР($A2;СТРОКА(ДВССЫЛ((ПОИСК(B$1&": ";$A2)+ДЛСТР(B$1)+2)&":"&ДЛСТР($A2)));1)=СИМВОЛ({10;13}));{1:1})^0;);ДЛСТР($A2)));"")

$A2 - ячейка с текстом, B$1 - заголовок столбца

БЛин вы невероятно крутые, но я все равно не пойму, как применять это правила для моего документа. Вставляю это строчку в твой документ, все работает, а когда вставляю в свой изначальный, ничего не работает

Северные Сады нас защитят

VEKTORVSFREEMAN

Дата: Вторник, 25.11.2014, 13:32 | Сообщение № 17

Группа: Друзья

Ранг: Ветеран

Сообщений: 772

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

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

MS Office Excel 2010

ShuteRR, посмотри тут Как разобраться в работе сложной формулы?

"Опыт - это то, что получаешь, не получив того, что хотел"

_Boroda_

Дата: Вторник, 25.11.2014, 13:43 | Сообщение № 18

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

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

Сообщений: 16880

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще такой вариант формулы

Код

=ЕСЛИОШИБКА(ЛЕВБ(ЗАМЕНИТЬ($A2;1;ПОИСК(B$1;$A2)+ДЛСТР(B$1)+1;);ПОИСК(СИМВОЛ(10);ЗАМЕНИТЬ($A2;1;ПОИСК(B$1;$A2)+ДЛСТР(B$1)+2;)&СИМВОЛ(10))-1);"")

А не получаться может потому, что значения в ячейках первой строки (Имя, телефон, ...) не точно соответствуют значениям в ячейках столбца А

К сообщению приложен файл: 4021892-1-1.xlsx (29.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Вторник, 25.11.2014, 14:15 | Сообщение № 19

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Цитата _Boroda_, 25.11.2014 в 13:43, в сообщении № 18

Еще такой вариант формулы
[Перевод / Translate]
=ЕСЛИОШИБКА(ЛЕВБ(ЗАМЕНИТЬ($A2;1;ПОИСК(B$1;$A2)+ДЛСТР(B$1)+1;);ПОИСК(СИМВОЛ(10);ЗАМЕНИТЬ($A2;1;ПОИСК(B$1;$A2)+ДЛСТР(B$1)+2;)&СИМВОЛ(10))-1);"")

А не получаться может потому, что значения в ячейках первой строки (Имя, телефон, ...) не точно соответствуют значениям в ячейках столбца А
К сообщению приложен файл: 4021892-1-1.xlsx(29Kb)

Ех, жаль раньше такого файла не получил

спасибо.

Северные Сады нас защитят

Дата: Вторник, 25.11.2014, 14:16 | Сообщение № 20

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2007

Спасибо всем больше, вы нереально крутые

Вот еслиб я не был таким дураком, все бы быстрей сделал. А так в ручную 700 пользователей обработал за 5 часов

Северные Сады нас защитят