Версия для слабовидящих
Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

 

= Мир MS Excel/Объединение таблицы в столбец формы "ячейка под ячейкой" - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Объединение таблицы в столбец формы "ячейка под ячейкой"
evgeny29321 Дата: Четверг, 22.09.2022, 19:09 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Есть способ преобразовать таблицу в столбец, как показано в прикрепленном файле? Не объединение двух столбцов, путем удаления границ, а именно в один столбец - перенеся данные из ячеек друг под друга (опять таки, пример в прикрепленном файле)
К сообщению приложен файл: 6705484.xlsx (9.4 Kb)
 
Ответить
СообщениеЕсть способ преобразовать таблицу в столбец, как показано в прикрепленном файле? Не объединение двух столбцов, путем удаления границ, а именно в один столбец - перенеся данные из ячеек друг под друга (опять таки, пример в прикрепленном файле)

Автор - evgeny29321
Дата добавления - 22.09.2022 в 19:09
Egyptian Дата: Четверг, 22.09.2022, 19:54 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 531
Репутация: 194 ±
Замечаний: 0% ±

Excel 2013/2016
Вариант.
=ИНДЕКС(A:C;ЦЕЛОЕ((ЧСТРОК($A$1:A1)-1)/3)+1;ОСТАТ(ЧСТРОК($A$1:A1)-1;3)+1)
К сообщению приложен файл: 1967147.xlsx (10.4 Kb)
 
Ответить
СообщениеВариант.
=ИНДЕКС(A:C;ЦЕЛОЕ((ЧСТРОК($A$1:A1)-1)/3)+1;ОСТАТ(ЧСТРОК($A$1:A1)-1;3)+1)

Автор - Egyptian
Дата добавления - 22.09.2022 в 19:54
evgeny29321 Дата: Четверг, 22.09.2022, 20:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Ого, спасибо огромное за формулу, весь интернет обыскал. Пришлось немного подправить, ибо столбцов было побольше, но за основу благодарность от всего сердца
 
Ответить
СообщениеОго, спасибо огромное за формулу, весь интернет обыскал. Пришлось немного подправить, ибо столбцов было побольше, но за основу благодарность от всего сердца

Автор - evgeny29321
Дата добавления - 22.09.2022 в 20:59
msi2102 Дата: Пятница, 23.09.2022, 15:38 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 130 ±
Замечаний: 0% ±

Excel 2007
Если Офис 365 то вот ещё пара вариантов

=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(МАССИВВТЕКСТ(A1:C5);";";"</s><s>")&"</s></t>";"//s")


=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(";";0;A1:C5);";";"</s><s>")&"</s></t>";"//s")

К сообщению приложен файл: 5140796.xlsx (10.9 Kb)
 
Ответить
СообщениеЕсли Офис 365 то вот ещё пара вариантов
[vba]
=ФИЛЬТР.XML(""&ПОДСТАВИТЬ(МАССИВВТЕКСТ(A1:C5);";";"")&"";"//s")
[/vba]

[vba]
=ФИЛЬТР.XML(""&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(";";0;A1:C5);";";"")&"";"//s")
[/vba]

Автор - msi2102
Дата добавления - 23.09.2022 в 15:38
прохожий2019 Дата: Суббота, 24.09.2022, 07:25 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1396
Репутация: 364 ±
Замечаний: 0% ±

365 Beta Channel
Цитата msi2102, 23.09.2022 в 15:38, в сообщении № 4 ( писал(а)):
Если Офис 365
=ПОСТОЛБЦ(A1:C5)
 
Ответить
Сообщение
Цитата msi2102, 23.09.2022 в 15:38, в сообщении № 4 ( писал(а)):
Если Офис 365
=ПОСТОЛБЦ(A1:C5)

Автор - прохожий2019
Дата добавления - 24.09.2022 в 07:25
Egyptian Дата: Суббота, 24.09.2022, 12:16 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 531
Репутация: 194 ±
Замечаний: 0% ±

Excel 2013/2016
Тогда еще вариант на Power Query.

let
    src = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    unpivot = Table.UnpivotOtherColumns(Table.AddIndexColumn(src, "tmp", 1, 1), {"tmp"}, "col", "Data"),
    to = Table.SelectColumns(unpivot,{"Data"})
in
    to

К сообщению приложен файл: 7002157.xlsx (18.9 Kb)
 
Ответить
СообщениеТогда еще вариант на Power Query.
[vba]
let    src = Excel.CurrentWorkbook(){[Name="Тable1"]}[Content];    unpivot = Тable.UnpivotOtherColumns(Тable.AddIndexColumn(src; "tmp"; 1; 1); {"tmp"}; "col"; "Data");    to = Тable.SelectColumns(unpivot;{"Data"})in    to
[/vba]

Автор - Egyptian
Дата добавления - 24.09.2022 в 12:16
прохожий2019 Дата: Суббота, 24.09.2022, 13:19 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1396
Репутация: 364 ±
Замечаний: 0% ±

365 Beta Channel
Цитата Egyptian, 24.09.2022 в 12:16, в сообщении № 6 ( писал(а)):
Power Query

List.Combine(Table.ToList(Excel.CurrentWorkbook(){[Name="Table1"]}[Content],(x)=>x))


а если через Unpivot - так нафига лишние манипуляции?

Table.UnpivotOtherColumns(Excel.CurrentWorkbook(){[Name="Table1"]}[Content],{},"","i")[i]



Сообщение отредактировал прохожий2019 - Суббота, 24.09.2022, 13:25
 
Ответить
Сообщение
Цитата Egyptian, 24.09.2022 в 12:16, в сообщении № 6 ( писал(а)):
Power Query
[vba]
List.Combine(Тable.ToList(Excel.CurrentWorkbook(){[Name="Тable1"]}[Content];(x)=>x))
[/vba]
а если через Unpivot - так нафига лишние манипуляции? [vba]
Тable.UnpivotOtherColumns(Excel.CurrentWorkbook(){[Name="Тable1"]}[Content];{};"";"i")[i]
[/vba]

Автор - прохожий2019
Дата добавления - 24.09.2022 в 13:19
Egyptian Дата: Суббота, 24.09.2022, 14:44 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 531
Репутация: 194 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата прохожий2019, 24.09.2022 в 13:19, в сообщении № 7 ( писал(а)):
так нафига лишние манипуляции?

Действительно. Всегда можно узнать новое. Спасибо.
 
Ответить
Сообщение
Цитата прохожий2019, 24.09.2022 в 13:19, в сообщении № 7 ( писал(а)):
так нафига лишние манипуляции?

Действительно. Всегда можно узнать новое. Спасибо.

Автор - Egyptian
Дата добавления - 24.09.2022 в 14:44
  • Страница 1 из 1
  • 1
Поиск:

Рейтинг@Mail.ru Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!