Sub Нарисовать()
Dim o1 As Shape, o2 As Shape
Set o1 = ActiveSheet.Shapes([E3])
Set o2 = ActiveSheet.Shapes([E6])
Dim x1!, y1!, r1!, x2!, y2!, r2!, xa!, ya!, xb!, yb!
GetParam o1, x1, y1, r1
GetParam o2, x2, y2, r2
Dim i&, j&, p#, l!, lmin!
Dim x1t!, y1t!, x2t!, y2t!, bc&, ec&
p = Atn(1)
lmin = [a65536].Top - [a1].Top
For i = 0 To 7
  x1t = x1 + Cos(p * i) * r1
  y1t = y1 - Sin(p * i) * r1
  For j = 0 To 7
    x2t = x2 + Cos(p * j) * r2
    y2t = y2 - Sin(p * j) * r2
    l = Sqr((x1t - x2t) ^ 2 + (y1t - y2t) ^ 2)
    If l < lmin Then
      lmin = l
      xa = x1t
      ya = y1t
      xb = x2t
      yb = y2t
      bc = i
      ec = j
    End If
  Next
Next
With ActiveSheet.Shapes.AddConnector(msoConnectorStraight, xa, ya, xb, yb)
    .ConnectorFormat.BeginConnect o1, (bc + 6) Mod 8 + 1
    .ConnectorFormat.EndConnect o2, (ec + 6) Mod 8 + 1
    .Name = [E3] & "|" & [E6]
End With
End Sub

Sub Удалить()
    On Error Resume Next
    ActiveSheet.Shapes([E3] & "|" & [E6]).Delete
    If Err = 0 Then Exit Sub
    Dim o1 As Shape, o2 As Shape, o3 As Shape, o4 As Shape
    Set o1 = ActiveSheet.Shapes([E3])
    Set o2 = ActiveSheet.Shapes([E6])
    For Each sh In ActiveSheet.Shapes
        If sh.Connector Then
            With sh.ConnectorFormat
                Set o3 = .BeginConnectedShape
                Set o4 = .EndConnectedShape
                If o1 Is o3 And o2 Is o4 Or o1 Is o4 And o2 Is o3 Then
                    sh.Delete
                    Exit For
                End If
            End With
        End If
    Next
End Sub

=СЧЁТЕСЛИ($A$1:A2;A2)

'Журнал ИБ'!$B$5:ИНДЕКС('Журнал ИБ'!$B:$B;$L$4);$L$4)

=КОНМЕСЯЦА(СЕГОДНЯ();СТРОКА()-1-(ДЕНЬ(СЕГОДНЯ())<20))+20

wsGraph.OLEObjects("tbCollect").Object

=ТЕКСТ(C1*30;"[$-419]ММММ")

=ТЕКСТ(C1*30;"[$-f419]ММММ")

application.templates.loadbuildingblocks

=ПОИСКПОЗ(МАКС(МУМНОЖ(ИНДЕКС(B:B;Ч(ИНДЕКС(A2:A9+{1;2;3};;)));{1:1:1}));МУМНОЖ(ИНДЕКС(B:B;Ч(ИНДЕКС(A2:A9+{1;2;3};;)));{1:1:1});)

=СУММПРОИЗВ(ИНДЕКС(F$2:F$4;Ч(ИНДЕКС(ПОИСКПОЗ(Т(+C7:G7)&"*";долл;);0;0)));Ч(+D7:H7))

И(ЕПУСТО())

Workbook_BeforePrint

=ЕСЛИ(СТРОКА(I1)>СУММ(ОКРВВЕРХ(E$6:E$10;0,2)/0,2);"";СТРОКА(I1))

=ЕСЛИ(I6<"";ПРОСМОТР(СТРОКА(J1);МУМНОЖ(ЕСЛИ(Ч(+C$5:C$10)>=ТРАНСП(C$5:C$10);ТРАНСП(ОКРВВЕРХ(E$5:E$10;0,2)/0,2););СТРОКА(C$5:C$10)^0)+1;D$6:D$7);"")

=ЕСЛИ(I6<"";--ТЕКСТ(ЕСЛИ(J6=J7;0,2;ОСТАТ(ВПР(J6;D$5:E$10;2;)/1%;20)%);"[=0]\0\,2");"")

Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,3

=СУММ((МУМНОЖ(-(B$2:E$10="+");ТРАНСП(СТОЛБЕЦ(B2:E2))^0)<0)*(F$2:F$10=F12)*G$2:G$10)

Table.SelectColumns(
    Table.ExpandTableColumn(
        Table.NestedJoin(
            table2,"ID",
            Table.AddColumn(
                table1,
                "NewID",
                each Text.Start([LongID] , 15)
            ),"NewID",
            ""
        ),
        "",
        Table.ColumnNames (table1)
    ),
    List.Combine(
        List.Differnce (
            List.Combine(
                Table.ColumnNames(table1),
                Table.ColumnNames (table2)
            ),
            {"LongID","ID"}
        ),
        {"LongID","ID"}
    ),
)