Прикладное применение методов принятия решений. Метод Консенсус.

Sub KURSACH()
Dim i As Integer, j As Integer, a1 As String, a2 As Single, a3 As String, a4 As Integer, a5 As Single, a6 As Double, a22 As Double
Dim max As Single, maxi As Integer, name As String
max = 0
i = 2
Sheets("Лист1").Select
Do While Cells(i, 1) <> ""
a1 = Cells(i, 1)
If a1 = "Apple" Or a1 = "Lenovo" Then
Cells(i, 9) = 1
Else: Cells(i, 9) = 0
End If
i = i + 1
Loop
i = 2
Do While Cells(i, 4) <> ""
a3 = Cells(i, 4)
If a3 = "Core i7" Then
Cells(i, 12) = 1
ElseIf a3 = "Core i5" Then
Cells(i, 12) = 0.5
Else: Cells(i, 12) = 0
End If
i = i + 1
Loop
max = 0
i = 2
Do While Cells(i, 3) <> ""
a2 = Cells(i, 3)
If a2 > max Then max = a2
i = i + 1
Loop
i = 2
Do While Cells(i, 3) <> ""
Cells(i, 11) = 1 - (Cells(i, 3) / max)
i = i + 1
Loop
max = 0
i = 2
Do While Cells(i, 5) <> ""
a4 = Cells(i, 5)
If a4 > max Then max = a4
i = i + 1
Loop
i = 2
Do While Cells(i, 4) <> ""
Cells(i, 13) = (Cells(i, 5) / max)
i = i + 1
Loop
i = 2
Do While Cells(i, 6) <> ""
a5 = Cells(i, 6)
If a5 = "750" Then
Cells(i, 14) = 1
Else: Cells(i, 14) = 0
End If
i = i + 1
Loop
i = 2
Do While Cells(i, 7) <> ""
a7 = Cells(i, 7)
If a7 > max Then max = a7
i = i + 1
Loop
i = 2
Do While Cells(i, 7) <> ""
Cells(i, 15) = 1 - Cells(i, 7) / max
i = i + 1
Loop
i = 2
Sum = 0
Do While Cells(i, 9) <> ""
Cells(i, 16) = Cells(i, 9) + Cells(i, 11) + Cells(i, 12) + Cells(i, 13) + Cells(i, 11) + Cells(i, 14) + Cells(i, 15)
i = i + 1
Loop
i = 2
j = 0
Do While Cells(i, 16) <> ""
If Cells(i, 16) > max Then max = Cells(i, 16): j = i
i = i + 1
Loop
MsgBox "Лучший ноутбук " + Cells(j, 1) + " " + Cells(j, 2)
End Sub