=ЕСЛИОШИБКА(--ИНДЕКС($4:$4;; СУММПРОИЗВ(НАИБОЛЬШИЙ(($I5:$ZZ5>0)*СТОЛБЕЦ($I5:$ZZ5); СЧЁТ($I5:$ZZ5)))); "")
=ЕСЛИОШИБКА(--ИНДЕКС($4:$4;; СУММПРОИЗВ(НАИБОЛЬШИЙ(($I5:$ZZ5>0)*СТОЛБЕЦ($I5:$ZZ5); 1))); "")

=ИНДЕКС_В(Ячейка_приемник; Ссылка; Номер_строки; Номер_столбца)

=ИНДЕКС_В(B9; B:B; ПОИСКПОЗ($A$6; A:A; 0))

If Application.CalculationState = xlDone Then 
 MsgBox "Done" 
 Else 
 MsgBox "Not Done" 
 End If

=СУММПРОИЗВ(--(ЛЕВСИМВ(B4:B6; ПОИСК("+"; B4:B6&"+")-1)&ПСТР(1/2;2;1)&"0"))

=ИНДЕКС_В(Ячейка_приемник; Ссылка; Номер_строки; Номер_столбца)

=ИНДЕКС_В(B9; B:B; ПОИСКПОЗ($A$6; A:A; 0))

Function ИНДЕКС_В(Ячейка As Range, Ссылка As Range, Optional Номер_строки As Long, Optional Номер_столбца As Long)
Application.Volatile ' для отслеживания изменений формата ячейки
    
    Dim lResult As Boolean
    
    lResult = (Номер_строки >= 0 And Номер_столбца >= 0 And Номер_строки + Номер_столбца > 0)
    lResult = lResult And (Номер_строки <= Ссылка.Rows.Count And Номер_столбца <= Ссылка.Columns.Count)
    
    Номер_строки = Номер_строки - 1
    Номер_столбца = Номер_столбца - 1
    '?( поведение ИНДЕКС(ссылка;строка;), ИНДЕКС(ссылка;;столбец)
    If Номер_строки < 0 Then Номер_строки = 0
    If Номер_столбца < 0 Then Номер_столбца = 0
    ')
    
    If lResult Then
        With Ссылка.Offset(Номер_строки, Номер_столбца)
            Ячейка.Value(xlRangeValueXMLSpreadsheet) = .Value(xlRangeValueXMLSpreadsheet)
            ИНДЕКС_В = .Value
        End With
    Else
        Ячейка.Value = WorksheetFunction.NA()
    End If

End Function

{=СУММ(ЕСЛИОШИБКА(--ЛЕВСИМВ(B4:B6; ПОИСК("+"; B4:B6&"+")-1); 0))}

Sub aaaвв()

    Range("P4").AutoFill Destination:=Range("P4").Resize(Range("A4").End(xlDown).Row - Range("P4").Row + 1) 'растянуть формулу
    Calculate 'пересчитать

    Range(Range("P5"), Range("P5").End(xlDown)) = Range(Range("P5"), Range("P5").End(xlDown)).Value

End Sub

=ЕСЛИ(B2=0; ЕСЛИОШИБКА(ИНДЕКС(E:E; ПОИСКПОЗ(C1;E:E;0)+1); E$2); C1)

Debug.Print "[" & Application.WorksheetFunction.Trim(" 12    345 ") & "]"    '[12 345]
Debug.Print "[" & Application.Trim(" 12    345 ") & "]"                      '[12 345]
Debug.Print "[" & Trim(" 12    345 ") & "]"                                  '[12    345]

Debug.Print "[" & WorksheetFunction.Trim(" 12    345 ") & "]" '[12 345]

=СЧЁТЕСЛИМН(D:D;H3;C:C;"<>2024*";C:C;"<>2024")

=ПРОСМОТР(1; 1/(($I$3:$I$7=A3)*($J$3:$J$7<=B3)*($K$3:$K$7>=B3)); $L$3:$L$7)

=СЧЁТЕСЛИМН(D:D;H3;C:C;"<>2024*")

=СУММПРОИЗВ(СЧЁТЕСЛИ(A4; СЖПРОБЕЛЫ(ПОДСТАВИТЬ(СТРОЧН(ПРАВБ(ПОДСТАВИТЬ(
выписка!E$12:E$9999; СИМВОЛ(10); ПОВТОР(" "; 99); 2); 99)); "индивидуальный предприниматель"; ""))&"*");
выписка!N$12:N$9999)

For iColOffset = 1 To 7 ' для 7 складов
    With Sheets("Доп")
        nYlast = Cells(Rows.Count, 25).End(xlUp).Row
        '??? или nYlast = Sheets("Склады").Cells(Rows.Count, 25).End(xlUp).Row
        .Range("DM" & n).Offset(0, iColOffset - 1) = _
            WorksheetFunction.Index(Sheets("Склады").Range("Y2:AG" & nYlast), _
            WorksheetFunction.Match(.Range("B" & n), Sheets("Склады").Range("Y2:Y" & nYlast), 0), _
            WorksheetFunction.Match(.Range("DM2").Offset(0, iColOffset - 1), Sheets("Склады").Range("Y1:AG1"), 0))
    End With
Next iColOffset

Sub Макрос1()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.PrintOut
End Sub

=ЕСЛИ(ИЛИ(ПЕЧСИМВ(CT$1)="Сумма за неделю"; И(CT$1=""; ПЕЧСИМВ(CS$1)="Сумма за неделю")); 
СУММЕСЛИ(CF$2:CS$2; ЕСЛИ(CT$1="";"Факт";"План"); CF6:CS6);
ИНДЕКС(Выполнение!$1:$1048576; СТРОКА(); (CT$1="")+ПОИСКПОЗ(ЕСЛИ(CT$1="";CS$1;CT$1); Выполнение!$1:$1; 0)))

=СЧЁТЕСЛИ(B:B; "#N/A")
=СЧЁТЕСЛИ(B:B; "#Н/Д")