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

Я 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


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

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

Всем привет.

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