Объединение таблицы в столбец формы "ячейка под ячейкой"
evgeny29321
Дата: Четверг, 22.09.2022, 19:09 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Есть способ преобразовать таблицу в столбец, как показано в прикрепленном файле? Не объединение двух столбцов, путем удаления границ, а именно в один столбец - перенеся данные из ячеек друг под друга (опять таки, пример в прикрепленном файле)
Есть способ преобразовать таблицу в столбец, как показано в прикрепленном файле? Не объединение двух столбцов, путем удаления границ, а именно в один столбец - перенеся данные из ячеек друг под друга (опять таки, пример в прикрепленном файле) evgeny29321
Ответить
Сообщение Есть способ преобразовать таблицу в столбец, как показано в прикрепленном файле? Не объединение двух столбцов, путем удаления границ, а именно в один столбец - перенеся данные из ячеек друг под друга (опять таки, пример в прикрепленном файле) Автор - 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)
Вариант.
=ИНДЕКС(A:C ;ЦЕЛОЕ((ЧСТРОК($A$1:A1 )-1)/3)+1;ОСТАТ(ЧСТРОК($A$1:A1 )-1;3)+1)
Egyptian
Ответить
Сообщение Вариант.
=ИНДЕКС(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
Ответить
Сообщение Ого, спасибо огромное за формулу, весь интернет обыскал. Пришлось немного подправить, ибо столбцов было побольше, но за основу благодарность от всего сердца Автор - 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" )
Если Офис 365 то вот ещё пара вариантов
=ФИЛЬТР.XML("<t><s>" &ПОДСТАВИТЬ(МАССИВВТЕКСТ(A1:C5);";" ;"</s><s>" )&"</s></t>" ;"//s" )
=ФИЛЬТР.XML("<t><s>" &ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(";" ;0 ;A1:C5);";" ;"</s><s>" )&"</s></t>" ;"//s" )
msi2102
Ответить
Сообщение Если Офис 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
=ПОСТОЛБЦ(A1:C5 )
Ответить
Сообщение
=ПОСТОЛБЦ(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
Тогда еще вариант на 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
Egyptian
Ответить
Сообщение Тогда еще вариант на 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
List.Combine(Table.ToList(Excel.CurrentWorkbook(){[Name="Table1"] }[Content] ,(x)=>x))
а если через Unpivot - так нафига лишние манипуляции?
Table.UnpivotOtherColumns(Excel.CurrentWorkbook(){[Name="Table1"] }[Content] ,{},"" ,"i" )[i]
List.Combine(Table.ToList(Excel.CurrentWorkbook(){[Name="Table1"] }[Content] ,(x)=>x))
а если через Unpivot - так нафига лишние манипуляции?
Table.UnpivotOtherColumns(Excel.CurrentWorkbook(){[Name="Table1"] }[Content] ,{},"" ,"i" )[i]
прохожий2019
Сообщение отредактировал прохожий2019 - Суббота, 24.09.2022, 13:25
Ответить
Сообщение [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
так нафига лишние манипуляции?
Действительно. Всегда можно узнать новое. Спасибо.
так нафига лишние манипуляции?
Действительно. Всегда можно узнать новое. Спасибо.Egyptian
Ответить
Сообщение так нафига лишние манипуляции?
Действительно. Всегда можно узнать новое. Спасибо.Автор - Egyptian Дата добавления - 24.09.2022 в 14:44