=ПСТР(ЛЕВБ(A2;ПОИСК(",";A2)-1);МИН(ЕСЛИОШИБКА(ПОИСК(СИМВОЛ(СТРОКА($65:$90));A2);""));99)

=СЖПРОБЕЛЫ(ПСТР(ЛЕВБ(A2;ПОИСК("(";A2&"(")-1);ПОИСК(",";A2&",")+1;99))

=ПСТР(ЛЕВБ(A2;ПОИСК(")";A2&")")-1);ПОИСК("(";A2&"(")+1;99)

=СУММ(ЕСЛИОШИБКА(--ПСТР(ПОДСТАВИТЬ(D8:AH8;"/";"     ");{1:6};5);))

shell "explorer """& [D3] &"""",vbhide

select ... , null as B , ... from ...

=360/(СЧЁТ(A3:A$9999)+СТРОКА(A1)-1)*ПИ()/180*(СТРОКА(A1)-1)

=ТЕКСТ(СУММ(--(0&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2:E2;"/";"     ");{1:6};5)))*10^{3:0});"000\/000")

Sub ааааа()
    Dim oPic As Picture
    For Each oPic In ActiveSheet.Pictures
        With oPic.TopLeftCell
            If Not Intersect(.Parent.[B:B], .Cells) Is Nothing Then
                oPic.Top = .Top : oPic.Left = .Left
                oPic.Height = .Height: oPic.Width = .Width
            End If
        End With
    Next
End Sub

Option Explicit
Sub Общий()
    With Application
        .ScreenUpdating = 0: .EnableEvents = 0
        With ActiveSheet
            DuplicateShapes .[O1], .[K1], "Звездочка", _
                            .[S6], .[R6], "ОбъектX", _
                            .[S7], .[R7], "ОбъектY", _
                            .[S8], .[R8], "ОбъектZ"
        End With
        .ScreenUpdating = 1: .EnableEvents = 1
    End With
End Sub

Private Sub DuplicateShapes(ParamArray arg() As Variant)
    Dim arr() As Variant, lc As Range, c As Range, x As Shape, i&, cnt&
    For i = 0 To UBound(arg) \ 3
        For Each x In arg(i * 3).Parent.Shapes
          If x.Name Like arg(i * 3 + 2) & "*" Then x.Delete
        Next
        With arg(i * 3).Parent.UsedRange
            arr = .Formula
            Set lc = .SpecialCells(11).Offset(1, 1)
            .Replace "*" & arg(i * 3) & "*", "=" & lc.Address, xlWhole
            For Each c In lc.DirectDependents
                If c.Address <> arg(i * 3).Address Then
                    With ActiveSheet.Shapes(arg(i * 3 + 1)).Duplicate
                        cnt = cnt + 1: .Left = c.Left + c.Width - .Width
                        .Top = c.Top: .Name = arg(i * 3 + 2) & Format(cnt, " 000")
                    End With
                End If
            Next
            .Formula = arr
        End With
    Next
End Sub

DuplicateShapes ЯчейкаСИскомымТекстом, ИмяФигуры, ПрефиксДубликатаФигуры, [...]

=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(ИНДЕКС(Лист1!2:9999;;НАИМЕНЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК($J11:$J12&"*";Лист1!$C$2:$AD$2)=1;СТОЛБЕЦ(Лист1!$C$2:$AD$2));"");ОТБР((СТОЛБЕЦ()+4)/7))+ОСТАТ(СТОЛБЕЦ()+4;7))>0);ИНДЕКС(Лист1!2:9999;;НАИМЕНЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК($J11:$J12&"*";Лист1!$C$2:$AD$2)=1;СТОЛБЕЦ(Лист1!$C$2:$AD$2));"");ОТБР((СТОЛБЕЦ()+4)/7))+ОСТАТ(СТОЛБЕЦ()+4;7)));"")