Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенести данные с горизонтальной таблицы в вертикальную по дням
 
#1
25.10.2018 21:02:25
Добрый день.

Подскажите плиз, как можно перенести данные с горизонтальной таблицы в вертикальную по дням.
Есть две таблицы:
  1. Классическая таблица с графиком работы, где напротив каждой фамилии есть цифра 1, т.е. рабочий день. - горизонтальная
  2. Упрощенная таблица с графиком, где в первом столбце указан месяц, а во втором должны быть перенесены фамилии. - вертикальная
Пример в сообщении ниже

Буду очень благодарен за помощь!!
 
 
 
#2
25.10.2018 21:20:06
Log4, почему 2го ноября в таб. "как требуется" только трое, тогда как в исх. таб. у всех 5х стоят единицы?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
25.10.2018 21:24:51
не тот файл загрузился =\
 
 
 
#4
25.10.2018 21:29:38
Почему в "Как требуется" Вы везде отвели под фамилии по три яч. внутри даты, тогда как 8го и 27го работали четверо?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
25.10.2018 21:37:41
Сделал первые дни в качестве примера, так сказать урезанная версия, т.к. данных в два раза больше.
 
 
 
#6
25.10.2018 22:05:23
примерно так, без красоты

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
25.10.2018 22:57:07
решение с помощью PQ
 
 
 
#8
25.10.2018 23:03:41
Доброе время суток
Цитата
Anton555 написал:
решение с помощью PQ
Коллега, может проще так?
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(Source, {"ФИО"}, "Атрибут", "Значение"),
    #"Filtered Rows" = Table.SelectRows(#"Unpivoted Other Columns", each ([Значение] = 1)),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Значение"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Removed Columns",{{"Атрибут", Int64.Type}, {"ФИО", type text}})
in
    #"Changed Type"
 
 
 
#9
25.10.2018 23:17:32
Цитата
Коллега, может проще так?

конечно проще, но тут загвоздка в Table.UnpivotOtherColumns, если не знаешь эту функцию, то тяжко
вы как всегда на высоте, честь и хвала вам.
 
 
 
#10
25.10.2018 23:23:33
Хмм... думал, что формулами excel можно будет обойтись...

Интересно сколько времени уйдет на внедрение)

Т.к. эти таблицы находятся в разных файлах, а график работы людей у кого стоит буква "н" планировал объединять в одну строку ... =\
 
 
 
#11
25.10.2018 23:27:12
Log4,не жмите на Enter по несколько раз. Одного достаточно.
 
 
 
#12
25.10.2018 23:39:48
Спасибо, но через PQ не удобно для последующего использования, т.к. этот элемент часть большой таблицы.

формулами никак не сделать задачку эту?
 
 
 
#13
26.10.2018 00:00:03
Цитата
перенести данные с горизонтальной таблицы в вертикальную по дням
вот так еще можно попробовать
 
 
 
#14
26.10.2018 00:24:06
Или так (все-таки макрос, но работает)  :)
 
 
 
#15
26.10.2018 09:17:18
Интересный вариант с макросом)
Может легче разделить по дням тогда? И с помощью формул индекс и поиск, или ВПР и искать фамилии, но возникает вопрос, как вытащить все фамилии по порядку =\
 
 
 
#16
26.10.2018 20:23:47
Цитата
Log4 написал:
Может легче разделить по дням тогда?
Для чего легче? Куда и как и чего разделить? Чтобы ячейки с одним днем не объединять? Но Вы же сами так показали в примере, вот я и объединил :)  Уберите в коде этот блок:
Код
If Cells(lr - 1, 34).Value = Cells(lr, 34).Value Then
     Range(Cells(lr - 1, 34), Cells(lr, 34)).Merge
     With Range(Cells(lr - 1, 34), Cells(lr, 34))
         .HorizontalAlignment = xlCenter
         .VerticalAlignment = xlCenter
     End With
 End If
вот и будет в каждой строчке один день, привязывайте к формулам.

Цитата
Log4 написал:
возникает вопрос, как вытащить все фамилии по порядку
Кажется, изначально тема была совсем о другом... :)
 
 
 
#17
26.10.2018 23:27:15
Окай))
Пойду изучать VBA)
Спасибо!
 
 
 
#18
27.10.2018 00:13:31
не смотрел что с формулами выше
По вопросам из тем форума, личку не читаю.
 
 
 
#19
27.10.2018 11:55:17
БМВ , спасибо! С этим я хотя бы могу поработать!)
Пойду разбирать по косточкам)
 
 
 
#20
27.10.2018 15:42:46
Вариант с функцией АГРЕГАТ. (формула не требует массивного ввода)
Код
=IFERROR(INDEX(B$6:B$10;AGGREGATE(15;6;ROW($1:$10)/ISNUMBER(INDEX($C$6:$AF$10;;CEILING(ROWS($12:12)/3;1)));MOD(ROWS($12:12)-1;3)+1));"")
Изменено: jakim - 27.10.2018 15:43:16
 
 
 
#21
27.10.2018 16:57:06
Цитата
jakim написал:
Вариант с функцией АГРЕГАТ. (формула не требует массивного ввода)Код ? 1=IFERROR(INDEX(B$6:B$10;AGGREGATE(15;6;ROW($1:$10)/ISNUMBER(INDEX($C$6:$AF$10;;CEILING(ROWS($12:12)/3;1)));MOD(ROWS($12:12)-1;3)+1));"")
Хмм.. не встречался с таким вариантов.
Спасиб!
То же поковыряюсь с этой формулой, что бы понять как работает.  
 
 
 
#22
27.10.2018 17:02:08
Найдите в сети информацию о цитировании (для чего, когда и как применять), после этого ознакомьтесь с пунктом 4.2. правил форума, а потом исправьте свое сообщение.
 
 
 
Страницы: 1
Наверх