Объединение нескольких строк в одну.

Дата: Воскресенье, 21.12.2014, 02:39 | Сообщение № 1

Группа: Заблокированные

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

Сообщений: 6

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

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

Excel 2007

Приветствую!

Столкнулся с проблемой при создании таблицы, постараюсь объяснить подробно.
Представим, что у нас есть несколько сотрудников, которые работают по разным группам определённое кол-во времени, на каждого сотрудника отдельный лист.
Например, так выглядит лист первого сотрудника:
Группа Время
1 45
2 34
3 2
4 34
5 12
6 54

У разных сотрудников названия групп могут повторяться, но могут быть и уникальные.
Последний лист - результат. Строки - сотрудники, столбцы - группы, и по ним расписано время.
И вот мы добрались до проблемы. Если группы совпадают, то после сортировки по возрастанию времени трёх сотрудников, которые работали в группе "4" получается так:

Как можно сгруппировать строки так, чтобы значения оказались в одной строке?
4 34 54 56

Способ "вырезать-вставить-удалить строку" не пойдёт, т.к. сотрудников будет пару десятков, а групп - в несколько раз больше.
Например, было бы достаточно выделить необходимые строки и выбрать "сгруппировать". Есть ли подобная функция или схожий способ решения проблемы?

К сообщению приложен файл: 2468891.png (0.9 Kb) · 7560119.xlsx (11.4 Kb)

Сообщение отредактировал Svyaga - Воскресенье, 21.12.2014, 02:48

Дата: Воскресенье, 21.12.2014, 02:42 | Сообщение № 2

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

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

Сообщений: 2941

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

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

Что же Вы нас картинками кормите? Здесь файлы Excel любят.

Дата: Воскресенье, 21.12.2014, 02:47 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 6

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

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

Excel 2007

Цитата vikttur, 21.12.2014 в 02:42, в сообщении № 2

Что же Вы нас картинками кормите? Здесь файлы Excel любят.

Исправил. Буду знать

Дата: Воскресенье, 21.12.2014, 02:58 | Сообщение № 4

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

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

Сообщений: 2941

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

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

Для такого объема лучше макрос.
Если формулами: с помощью ДВССЫЛ (определение ссылки на лист).
Так ли нужно растягивать Результат повторением групп? Одна группа - одна строка.

Обратите на название листа третьего работника - пробел там.
Если имена листов с пробелом, то:
ДВССЫЛ("'"&D2&"'!A2:A10")

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

Сообщение отредактировал vikttur - Воскресенье, 21.12.2014, 03:08

Дата: Воскресенье, 21.12.2014, 03:00 | Сообщение № 5

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Svyaga, 21.12.2014 в 02:39, в сообщении № 1

Есть ли подобная функция или схожий способ решения проблемы?

Достаточно не делать детских ошибок при работе с MS Excel (ошибок типа размещения однотипных данных на разных листах). Если данные расположены правильно, то становится достаточным применения простой сводной таблицы (см. вложение)

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

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 21.12.2014, 03:07 | Сообщение № 6

Группа: Заблокированные

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

Сообщений: 6

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

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

Excel 2007

Цитата Serge_007, 21.12.2014 в 03:00, в сообщении № 5

Достаточно не делать детских ошибок

Эти листы как бы необходимы на печать бухгалтеру как отдельные листы для каждого сотрудника. Всё сделано уже по формам и по стандартам, а результат я делаю для себя.
И каким образом вы объединили, например, 4 группу в одну строку в сводной таблице?

Цитата vikttur, 21.12.2014 в 02:58, в сообщении № 4

Для такого объема лучше макрос.

А какая логика должна быть у макроса для подобного действия? С написанием кода уж как-нибудь разберусь, главное - понять смысл

Цитата vikttur, 21.12.2014 в 02:58, в сообщении № 4

Обратите на название листа третьего работника - пробел там.

Не суть, это просто пример небольшой, в таблице, само собой, таких ошибок не будет

Сообщение отредактировал Svyaga - Воскресенье, 21.12.2014, 03:09

Дата: Воскресенье, 21.12.2014, 03:10 | Сообщение № 7

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Svyaga, 21.12.2014 в 03:07, в сообщении № 6

Эти листы как бы необходимы на печать бухгалтеру как отдельные листы для каждого сотрудника

Что мешает бухгалтеру распечатывать на каждого сотрудника листы из общей таблицы?!
Или нажатие одной кнопки фильтрации не кошерно, а вот переход по листам таки да?

Цитата Svyaga, 21.12.2014 в 03:07, в сообщении № 6

Всё сделано уже по формам и по стандартам

Давайте Ваши "формы и стандарты" - сделаем как надо

Цитата Svyaga, 21.12.2014 в 03:07, в сообщении № 6

каким образом вы объединили, например, 4 группу в одну строку в сводной таблице?

Я - никаким. Я вообще тут не при делах. Это все она сама - сводная таблица

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 21.12.2014, 03:10 | Сообщение № 8

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

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

Сообщений: 2941

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

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

Добавил файл с ДВССЫЛ

Цитата

какая логика должна быть у макроса... С написанием кода уж как-нибудь разберусь

Проходим циклом по группам, находим совпадения и заносим в массив, по окончании выгружаем массив на лист.

Дата: Воскресенье, 21.12.2014, 03:20 | Сообщение № 9

Группа: Заблокированные

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

Сообщений: 6

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

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

Excel 2007

Цитата Serge_007, 21.12.2014 в 03:10, в сообщении № 7

Что мешает бухгалтеру распечатывать на каждого сотрудника листы из общей таблицы?!
Или нажатие кнопки фильтрации не кошерно?

Что мешает отвечать по теме, а не переделывать "задание" под себя?

Цитата Serge_007, 21.12.2014 в 03:10, в сообщении № 7

Давайте Ваши "формы и стандарты" - сделаем как надо

Вы и то, что я уже скинул, не сделали... Нет, спасибо, да и не могу скинуть всё равно

P.S. Представляю себе такую таблицу из 20 сотрудников и как минимум 40 групп (это при том, что всего при 3 рабочих и небольшом количестве групп вышло уже 20 строк), тем более, что время - далеко не единственный в ней показатель. Безумно удобно.

Цитата vikttur, 21.12.2014 в 03:10, в сообщении № 8

Проходим циклом по группам, находим совпадения и заносим в массив, по окончании выгружаем массив на лист.

Ну, впринципе, логично. Спасибо. Пошёл смотреть, как это делается

Сообщение отредактировал Svyaga - Воскресенье, 21.12.2014, 03:23

Дата: Воскресенье, 21.12.2014, 03:25 | Сообщение № 10

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Svyaga, 21.12.2014 в 03:20, в сообщении № 9

Что мешает отвечать по теме?

Я по теме ответил, только Вы пока этого не понимаете. Или вообще не нужны ответы? Закрыть тему?

Цитата Svyaga, 21.12.2014 в 03:20, в сообщении № 9

не переделывать "задание" под себя?

А я "под себя" ничего и не переделывал. Я под Excel переделал, раз уж Вы в этой программе работаете

Цитата Svyaga, 21.12.2014 в 03:20, в сообщении № 9

Вы и то, что я уже скинул, не сделали

Вообще-то сделал. Решение на 100% соответствует задаче топика. А вот этот Ваш вопрос:

Цитата Svyaga, 21.12.2014 в 03:07, в сообщении № 6

каким образом вы объединили, например, 4 группу в одну строку в сводной таблице?

свидетельствует о том что задача решена именно так как Вам надо

[p.s.]
Нравится трусы через голову одевать - флаг Вам в руки и удачи в бессмысленном труде. Но если не нужны нормальные пути решения, то зачем вообще нужно было на форум приходить и тему создавать?![/p.s.]

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 21.12.2014, 03:32 | Сообщение № 11

Группа: Заблокированные

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

Сообщений: 6

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

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

Excel 2007

Цитата Serge_007, 21.12.2014 в 03:25, в сообщении № 10

Я по теме ответил, только Вы пока этого не понимаете. Или вообще не нужны ответы? Закрыть тему?

[offtop]Некрасиво с самого же первого сообщения смотреть на окружающих свысока, что я и попытался донести, а то пафос так и прёт.[/offtop]

Цитата Serge_007, 21.12.2014 в 03:25, в сообщении № 10

А я "под себя" ничего и не переделывал. Я под Excel переделал, раз уж Вы в этой программе работаете

Я уже сказал дважды, что Ваш вариант меня не устраивает, Вы же продолжаете настаивать на своём, мне не совсем понятно, зачем и почему.

Цитата Serge_007, 21.12.2014 в 03:25, в сообщении № 10

Нравится трусы через голову одевать - флаг Вам в руки и удачи в бессмысленном труде.

[offtop]Как по мне, создавать таблицу из трёхзначного (а то и четырёхзначного время от времени) количества строк - это настоящий мазохизм. Тем более переделывать всё готовое ради одной маленькой таблицы чисто для себя. А в выражениях можно быть и посдержаннее.[/offtop]

Зачем закрывать тему? Может, кто-нибудь что-то ещё полезное предложит помимо vikttur

Сообщение отредактировал Svyaga - Воскресенье, 21.12.2014, 03:34

RAN

Дата: Воскресенье, 21.12.2014, 03:34 | Сообщение № 12

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Sub мяв()
     Dim odic As Object, arr(), i&, j&
     Set odic = CreateObject("Scripting.Dictionary")
     For i = 1 To 3
         With Sheets(i)
             For j = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
                 If odic.exists(.Cells(j, 1).Value) Then
                     arr = odic.Item(.Cells(j, 1).Value)
                     arr(i) = .Cells(j, 2).Value
                     odic.Item(.Cells(j, 1).Value) = arr
                 Else
                     ReDim arr(1 To 3)
                     arr(i) = .Cells(j, 2).Value
                     odic.Add .Cells(j, 1).Value, arr
                 End If
             Next
         End With
     Next
     With Sheets(4)
         .Range("H1").Resize(odic.Count) = Application.Transpose(odic.keys)
         .Range("I1").Resize(odic.Count, 3) = Application.Transpose(Application.Transpose(odic.items))
     End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Воскресенье, 21.12.2014, 03:35 | Сообщение № 13

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

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

Сообщений: 2941

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

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

Цитата

Что мешает отвечать по теме, а не переделывать "задание" под себя?

В таком случае и я переделал... Одноименные группы позволил себе соединить в одну! И посмел же!

Вам предлагают пути решения Вашей задачи. С точки зрения помогающих - пути лучше, чем Вы сами выбрали. Не нравится - не применяйте.

Цитата

Представляю себе... Безумно удобно.

Потому и возмущаетесь, что не то представляете.

Дата: Воскресенье, 21.12.2014, 03:42 | Сообщение № 14

Группа: Заблокированные

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

Сообщений: 6

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

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

Excel 2007

Цитата vikttur, 21.12.2014 в 03:35, в сообщении № 13

[offtop]Я это понимаю, я как раз это и пытался донести несколько раз (что меня не устраивает вышеупомянутый подход), но меня тут заставляют делать, как сказали, а стоит начать спорить или "сопротивляться", сразу язвительные выражения :'(

Не люблю такое.[/offtop]

Цитата vikttur, 21.12.2014 в 03:35, в сообщении № 13

Потому и возмущаетесь, что не то представляете.

Вполне легко себе представить четырёхзначное количество строк.

Цитата RAN, 21.12.2014 в 03:34, в сообщении № 12

Sub мяв()
...
End Sub

Спасибо! Всё работает) Осталось только под себя немного переработать

Сообщение отредактировал Svyaga - Воскресенье, 21.12.2014, 03:45