=СУММПРОИЗВ(СУММЕСЛИ(ДВССЫЛ("'"&Листы&"'!C1:C10");D8;ДВССЫЛ("'"&Листы&"'!F1:F10")))

Private Sub CommandButton2_Click()
    Dim HPB As HPageBreak, rngHPB As Range, sum_page As Double, i As Long, j As Long, nl As Long, kl As Long
    Application.ScreenUpdating = False
        If ActiveSheet.Name = "Остатки на складе" Then 'обязательно условие - указание имени листа, иначе VBA пытается выполнить код на др. листах
            With Sheets("Остатки на складе")
'                If .HPageBreaks.Count > 0 Then
                    Set rngHPB = .HPageBreaks(.HPageBreaks.Count).Location
                    i = 8
                    For Each HPB In ActiveSheet.HPageBreaks
                        j = j + 1
                        Set rngHPB = HPB.Location
                        sum_page = Application.Sum(.Range(.Cells(i, 9), .Cells(HPB.Location.Row - 1, 9)))
                        If sum_page > 0 Then
                            If j = 1 Then
                                nl = 1
                            Else
                                nl = i
                            End If
                            i = HPB.Location.Row
                            kl = i - 1
                            .PageSetup.RightFooter = Join(Array("Итого по стр. ", j, Space(1), Format(sum_page, "0.00")))
                            .Range("A" & nl & ":J" & kl).PrintOut Copies:=1
                        Else: Exit Sub
                        End If
                    Next HPB
'                End If
            End With
        End If
    Application.ScreenUpdating = True
End Sub

=ИНДЕКС('Part 2 DATA'!A:A;ПОИСКПОЗ(СТРОКА()-8;'Part 2 DATA'!$K:$K;))

=СМЕЩ($B$3;СТРОКА(B1);ПОИСКПОЗ($B$10;$B$3:$E$3;)-1)

=И(D2>0;СЧЁТ($D$2:$I$2)=1)

=СЧЁТЕСЛИ(A1:ИНДЕКС(A1:F1;ПОИСКПОЗ("груши";A1:F1;));"яблоки")

=ЕСЛИ(И(A2>E2;A2<F2);J2;"Условие ???")

=СУММЕСЛИ(исходная!$A$3:$A$10;$B$1;ИНДЕКС(исходная!$B$3:$K$10;;ПОИСКПОЗ($A5;исходная!$B$2:$T$2;0)))

=ЕСЛИ(A2<>"";СЧЁТЕСЛИ(B:B;ЛЕВБ(A2;24)&"*");0)

If Target.Cells.Count > 1 Then Exit Sub

=ЕСЛИ(ОСТАТ(СТРОКА(A3);3);"";ИНДЕКС($A$1:$A$8;СТРОКА(A3)/3))

            'cell = Replace(cell, c, Mid(Rus, p, 1))
            cell.Value = Application.Substitute(cell, c, Mid(Rus, p, 1), 1)

Sub Sbor()
Dim LastRow As Long, j As Long, jj As Long, i As Long, a As Long, ii As Long
Application.ScreenUpdating = False
'Application.EnableEvents = False
Sheets("Счёт").Range("A7:F1000").Clear
a = 7
    For i = 1 To ThisWorkbook.Sheets.Count
    If Sheets(i).Name > 0 Then
        LastRow = Sheets(i).Cells(Rows.Count, 2).End(xlUp).Row
           With Sheets(i)
                For j = 2 To LastRow
                If .Cells(j, 1) >= Sheets("Счёт").Range("A2").Value And .Cells(j, 1) <= Sheets("Счёт").Range("B2").Value Then
                    For jj = j To j + 50
                        If .Cells(jj, 1) = "" Then Exit For
                    Next
                    For ii = j + 1 To jj - 1
                        If .Cells(ii, 1) = Sheets("Счёт").Range("C2").Value Then
                            .Cells(j, 1).Copy
                            Sheets("Счёт").Cells(a, 1).PasteSpecial Paste:=xlPasteFormats
                            Sheets("Счёт").Cells(a, 1).PasteSpecial Paste:=xlPasteValues
                            .Range(.Cells(ii, 2), .Cells(ii, 6)).Copy Sheets("Счёт").Cells(a, 2)
                            Sheets("Счёт").Range("A" & a & ":F" & a).Borders.LineStyle = xlContinuous
                            Sheets("Счёт").Range("A" & a & ":F" & a).Borders.Weight = xlThin
                            a = a + 1
                        End If
                    Next
                End If
                Next
            End With
    End If
    Next
Application.ScreenUpdating = True
'Application.EnableEvents = True
End Sub

=ИНДЕКС(Наз;ПОИСКПОЗ(форула!$B$3;АртГруп;0)):ИНДЕКС(Наз;ПОИСКПОЗ(форула!$B$4+0,1;АртГруп;1))

='Лист О1'!A6&" еще одно слово"