Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
    lrow = Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(1, 2) = "" Then lrow = 0
    Cells(lrow + 1, "B") = Cells(1, 1).Value
    Cells(1, 1).ClearContents
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

=ЕСЛИОШИБКА(ИНДЕКС($C$3:$C$153;НАИМЕНЬШИЙ(ЕСЛИ(($A$3:$A$153=F$3)*($B$3:$B$153=$F$2);СТРОКА($C$3:$C$153)-2);СТРОКА(A1)));"")

Private Sub CommandButton1_Click()
'
' Макрос1 Макрос
' Макрос записан 19.04.2007 (Королев)
'
' Сочетание клавиш: Ctrl+s
'
    Range("G17").Select
    Range("G17").GoalSeek Goal:=0, ChangingCell:=Range("B17")

End Sub

=СУММПРОИЗВ(((A10:A12-L10:U12)=B3)+((B10:B12-L10:U12)=B3)+((C10:C12-L10:U12)=B3)+((D10:D12-L10:U12)=B3)+((E10:E12-L10:U12)=B3)+((F10:F12-L10:U12)=B3)+((G10:G12-L10:U12)=B3)+((H10:H12-L10:U12)=B3)+((I10:I12-L10:U12)=B3)+((J10:J12-L10:U12)=B3))

=ИНДЕКС(D6:G11;СУММ((D6:G11<>ЛОЖЬ)*СТРОКА(D6:G11))-5;СУММ((D6:G11<>ЛОЖЬ)*СТОЛБЕЦ(D6:G11))-3)

=МАКС(D6:G11)

=СУММЕСЛИМН($C$2:$C$7;$A$2:$A$7;G2;$B$2:$B$7;H2)