Kod:
For i = 1 To 6
For k = i + 1 To 6
For y = 1 To 5
If criterc(y) = 1 Then
h(i, 0) = " c(" & i & ", " & k & ")"
h(i, y + 1) = y
Else
If criterd(y) = 1 Then
l(i, 0) = " c(" & i & ", " & k & ")"
l(i, y + 1) = y
End If
End If
Next y
Next k
Next i
End Sub