Приветствую.
При выборе "Добавить эти данные в модель данных" вообще не будет работать "Сводные - Все поля в сумму" ?.
Или как-то решается?
Спасибо

Приветствую
Нашли ответ?

Вопрос решен.
В Plex есть опция заполнить вправо или влево.
После снятия объединения применяем PLex.

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

Я https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=3154

вот макрос из той темы
Sub UnMerge_and_Fill()  
 '---------------------------------------------------------------------------------------  
 ' Procedure    : UnMerge_and_Fill  
 ' Topic_HEADER : Снятие объединения ячеек с заполнением  
 ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=3760  
 ' Purpose      : Снимает объединение со всех ячеек выделенного диапазона  
 '                и заполняет все разгруппированные ячейки КАЖДОЙ бывшей группы  
 '                либо ссылками на значения верхней левой, либо её значениями  
 '---------------------------------------------------------------------------------------  
 If Selection.Cells.Count <= 1 Then Exit Sub  
 Dim rRange As Range, rCell As Range, sValue$, sAddress$, i&  
 Application.ScreenUpdating = False  
 Set rRange = Intersect(Selection, ActiveSheet.UsedRange)  
 Select Case MsgBox("""ДА"" - заполнить ячейки формулами-ссылками на первую ячейку" & vbCrLf & _  
                    """НЕТ"" - заполнить ячейки значениями из первой ячейки" & vbCrLf & _  
                    """ОТМЕНА"" не разгруппировывать" _  
                    , vbYesNoCancel + vbQuestion, "Как заполнять ячейки после разгруппировки?")  
    Case vbYes   ' разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить формулами-ссылками на их первые ячейки  
       For Each rCell In rRange  
          If rCell.MergeCells Then  
             sAddress = rCell.MergeArea.Address: rCell.UnMerge  
             For i = 2 To Range(sAddress).Cells.Count  
                With Range(sAddress)  
                   .Cells(i).Formula = "=" & .Cells(1).Address  
                   .Cells(i).Replace What:="$", Replacement:="", LookAt:=xlPart  ' сделать ссылки перемещаемыми  
                   .Cells(i).Font.ColorIndex = 5   ' сделать шрифт формул синим (это на любителя, конечно)  
                End With  
             Next i  
          End If  
       Next rCell  
    Case vbNo    ' разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить значениями из их первых ячеек  
       For Each rCell In rRange  
          If rCell.MergeCells Then  
             sAddress = rCell.MergeArea.Address: sValue = rCell.Value: rCell.UnMerge  
             Range(sAddress).Value = rCell.Value  
          End If  
       Next  
    Case vbCancel  
       If MsgBox("Разгруппировать стандартным способом?", vbYesNo + vbQuestion) = vbYes Then Selection.UnMerge  
 End Select  
 rRange.Select  
 Application.ScreenUpdating = True  
End Sub


А как подправить Макрос  
чтобы Максрос заполнял в бок (в сторону), только по горизонтали (по столбцам, по ячейкам, которые были объединены).
То есть чтобы заполнялись ячейки при отмене объединения
только объединенных ячейках соседних столбцов,
а при объединенных ячейках соседних строк не заполнял.

Ответ здесь
https://www.planetaexcel.ru/techniques/14/3304/

А кто исправил название темы, добавил слова - (задача на графах).
можно убрать - (задача на графах).
так как это в excel мне нужно, и есть решение в excel.

здесь
http://www.excelworld.ru/forum/2-39280-1#260218
мой запрос решили.
в excel

я по ссылке прошел.

вот это место?:
Алгоритм поиска компонент связности в графе
Дан неориентированный граф с вершинами и рёбрами. Требуется найти в нём все компоненты связности, т.е. разбить вершины графа на несколько групп так, что внутри одной группы можно дойти от одной вершины до любой другой, а между разными группами — пути не существует.

Спасибо
С++ - не знаю. как это применить? какую программу использовать?

вот картинка таблицы
2 связана
с 4 напрямую
с 3 связана через 4
с 5 связана через 4, 3,

Задача для сыщиков
надо найти связь между 2-мя лицами
напрямую эти лица могут быть несвязанными,
но могут связаны через другие лица

Приветствую!
Задача
Есть таблица,
1 строка    - наименование объектов (пусть - 1, 2, 3 и т. д.)
1 столбец - наименование тех же объектов (1, 2, 3 и т. д.)
в ячейках - наличие маркирования (или наличие 1) - показывает что эти объекты связанны между собой
нужно определить как связанны / не связанны  между собой 2 объекта
можно ли это автоматизировать (макрос?)?
что бы запустил макрос, указываешь какие объекты нужно проверить, в итоге - информация - цепочка:
например, как связаны 3 и 21 объекты, получается ответ:
есть связь: 3 - 8 - 5 - ..... - 21
может еще в самой таблице показывает путь, выделив ячейки - как проходит связь.
или
нет связи.

на работе не получается файл закинуть, защита работает, из дома закину.
Что не вручную маркировать ячейки, а посредством макроса, в итоге должна получиться "змейка", которая покажет связь.

Файл закину позже.
Представляю решение таким образом:
в названии столбцов - ФИО физ лиц, названия компани
в названии строк -  те же данные  - ФИО физ лиц, названия компаний
на пересечении строк и столбцов буква С (признак что эти лица/компании связаны)
надо определить связано ли какое-то лицо с другим
Выбираем интересующие лица, после чего автоматом проявляется их связь через маркирование ячеек (визуально), которые показывают лиц через которые они связаны.

Всем привет.

Задача:
Есть много компаний и их учредители (физические лица и компании), пусть их всего 22.
Они связаны между собой, по признакам:
1) учредители одни те же;
2) первые руководители одни и те же;
3) одни компании учредителями в других компаниях.
Связанность можно обозначить одной буквой, например - С.
В файле данные.
Как определить связанность между компаниями и физическими лицами через таблицу в excel?
- Использовать фильтр?
- макрос?
- ?
Кто-нибудь сталкивался с такой задачей - выявить связь между лицами и/или компаниями по заданным признакам, используя excel?
Может существует какая другая программа?