lls (77, 3). Value
If a1> a2 And a1> a3 Then a1 = a1
If a2> a1 And a2> a3 Then a1 = a2
If a1> a2 And a1> a3 Then a1 = a3
a4 = Worksheets ("Лист1"). Cells (78, 3). Value
a5 = Worksheets ("Лист1"). Cells (79, 3). Value
a6 = Worksheets ("Лист1"). Cells (80, 3). Value
If a4> a5 And a4> a6 Then a2 = a4
If a5> a4 And a5> a6 Then a2 = a5
If a6> a4 And a6> a5 Then a2 = a6
a7 = Worksheets ("Лист1"). Cells (75, 5). Value
a8 = Worksheets ("Лист1"). Cells (76, 5). Value
a9 = Worksheets ("Лист1"). Cells (77, 5). Value
If a7> a8 And a7> a9 Then a3 = a7
If a8> a7 And a8> a9 Then a3 = a8
If a9> a7 And a9> a8 Then a3 = a9
a10 = Worksheets ("Лист1"). Cells (78, 5). Value
a11 = Worksheets ("Лист1"). Cells (79, 5). Value
If a10> a11 Then a4 = a10 Else a4 = a11
For i = 3 To 73
Worksheets ("Ліст4"). Cells (i, 1). Value = ""
Worksheets ("Ліст4"). Cells (i, 2). Value = ""
Worksheets ("Ліст4"). Cells (i, 3). Value = ""
Worksheets ("Ліст4"). Cells (i, 4). Value = ""
Worksheets ("Ліст4"). Cells (i, 5). Value = ""
Worksheets ("Ліст4"). Cells (i, 6). Value = ""
Worksheets ("Ліст4"). Cells (i, 7). Value = ""
Worksheets ("Ліст4"). Cells (i, 8). Value = ""
Worksheets ("Ліст4"). Cells (i, 9). Value = ""
Next i
For i = 3 To 73
s = Worksheets ("Лист1"). Cells (i, 3). Value
s1 = Worksheets ("Лист1"). Cells (i, 2). Value
s2 = Worksheets ("Лист1"). Cells (i, 9). Value
s3 = Worksheets ("Лист1"). Cells (i, 11). Value
If s = "" Then Exit For
Select Case s
Case 1
j1 = J1 + 1
q1 = Q1 + s2
Worksheets ("Ліст4"). Cells (4 + J1, 1). Value = s1
Worksheets ("Ліст4"). Cells (4 + J1, 2). Value = s2
Case 2
j2 = J2 + 1
q2 = Q2 + s2
Worksheets ("Ліст4"). Cells (4 + J2, 5). Value = s1
Worksheets ("Ліст4"). Cells (4 + J2, 6). Value = s2
Case 3
j3 = J3 + 1
q3 = Q3 + s2
Worksheets ("Ліст4"). Cells (4 + J3, 9). Value = s1
Worksheets ("Ліст4"). Cells (4 + J3, 10). Value = s2
Case 4
j4 = J4 + 1
q4 = Q4 + s2
Worksheets ("Ліст4"). Cells (7 + A1 + j4, 1). Value = s1
Worksheets ("Ліст4"). Cells (7 + A1 + j4, 2). Value = s2
Case 5
j5 = J5 + 1
q5 = Q5 + s2
Worksheets ("Ліст4"). Cells (7 + A1 + j5, 5). Value = s1
Worksheets ("Ліст4"). Cells (7 + A1 + j5, 6). Value = s2
Worksheets ("Ліст4"). Cells (7 + A1 + j5, 7). Value = s3
Case 6
j6 = J6 + 1
q6 = Q6 + s2
Worksheets ("Ліст4"). Cells (7 + A1 + j6, 9). Value = s1
Worksheets ("Ліст4"). Cells (7 + A1 + j6, 10). Value = s2
Worksheets ("Ліст4"). Cells (7 + A1 + j6, 11). Value = s3
Case 7
j7 = J7 + 1
q7 = Q7 + s2
Worksheets ("Ліст4"). Cells (10 + J7 + a1 + a2, 1). Value = s1
Worksheets ("Ліст4"). Cells (10 + J7 + a1 + a2, 2). Value = s2
Worksheets ("Ліст4"). Cells (10 + J7 + a1 + a2, 3). Value = s3
Case 8
j8 = J8 + 1
q8 = Q8 + s2
Worksheets ("Ліст4"). Cells (10 + J8 + a1 + a2, 5). Value = s1
Worksheets ("Ліст4"). Cells (10 + J8 + a1 + a2, 6). Value = s2
Worksheets ("Ліст4"). Cells (10 + J8 + a1 + a2, 7). Value = s3
Case 9
j9 = J9 + 1
q9 = Q9 + s2
Worksheets ("Ліст4"). Cells (10 + J9 + a1 + a2, 9). Value = s1
Worksheets ("Ліст4"). Cells (10 + J9 + a1 + a2, 10). Value = s2
Worksheets ("Ліст4"). Cells (10 + J9 + a1 + a2, 11). Value = s3
Case 10
j10 = J10 + 1
q10 = Q10 + s2
Worksheets ("Ліст4"). Cells (16 + J10 + a1 + a2 + a3, 1). Value = s1
Worksheets ("Ліст4"). Cells (16 + J10 + a1 + a2 + a3, 2). Value = s2
Worksheets ("Ліст4"). Cells (16 + J10 + a1 + a2 + a3, 3). Value = s3
Case 11
j11 = J11 + 1
q11 = Q11 + s2
Worksheets ("Ліст4"). Cells (16 + J11 + a1 + a2 + a3, 5). Value = s1
Worksheets ("Ліст4"). Cells (16 + J11 + a1 + a2 + a3, 6). Value = s2
Worksheets ("Ліст4"). Cells (16 + J11 + a1 + a2 + a3, 7). Value = s3
End Select
Next i
Worksheets ("Ліст4"). Cells (5 + J1, 1). Value = "Разом"
Worksheets ("Ліст4"). Cells (5 + J1, 2). Value = q1
Worksheets ("Ліст4"). Cells (5 + J2, 5). Value = "Разом"
Worksheets ("Ліст4"). Cells (5 + J2, 6). Value = q2
Worksheets ("Ліст4"). Cells (5 + J3, 10). Value = q3
Worksheets ("Ліст4"). Cells (8 + J4 + a1, 2). Value = q4
Worksheets ("Ліст4"). Cells (8 + J5 + a1, 6). Value = q5
Worksheets ("Ліст4"). Cells (8 + J6 + a1, 9). Value = "Разом"
