ник: snipe
Так? =>
добавлено
Накосячил чуток
вот тут
или 1 оценка - "2", а остальные - "5" и "4", в т.ч по математике и физике
считает неправильно
вот это
If podshet = 0 Then
If a(1) = 0 And a(2) = 1 And a(3) = 0 Then
podshet = 3
End If
End If
надо заменить на это
If podshet = 0 Then
If a(1) = 0 And a(2) = 1 And a(3) = 0 And Cells(asd, matematika) >= 4 And Cells(asd, fizika) >= 4 Then
podshet = 3
End If
End If