Опишите что здесь происходит?

Private Sub OptionButton1_Click()
For i = 1 To 10000
Cells(i, 5) = ""
If Cells(i, 1) = "" Then
n = i - 1
Exit For
End If
Next i
For i = 2 To n
For j = i + 1 To n
If Cells(i, 4) < Cells(j, 4) Then
t = Cells(i, 1)
Cells(i, 1) = Cells(j, 1)
Cells(j, 1) = t
t1 = Cells(i, 2)
Cells(i, 2) = Cells(j, 2)
Cells(j, 2) = t1
t2 = Cells(i, 3)
Cells(i, 3) = Cells(j, 3)
Cells(j, 3) = t2
t3 = Cells(i, 4)
Cells(i, 4) = Cells(j, 4)
Cells(j, 4) = t3

End If
Next j
Next i
End Sub

svyara8    3   07.05.2020 23:38    1