В общем, здравствуйте. Возникла проблема с сортировкой матрицы. Хотел написать на VBA, сортирует частично, но почему-то добавляет лишний столбец и там числа по рандому.
Может, где-то что неправильно написал в коде, т к занялся этим сегодня только. В общем, помогите, пожалуйста.
В общем, посмотрите, пожилуйста, и поправьте, если не сложно. И если есть встроенный способ, то хотелось бы знать, а то есть только сортировка обыкновенного массива.
Алгоритм простой, как два пальца. Вот только что в коде не так, не пойму, ну или я в синтаксисе что-то недопонял. Может, лишнее условие выполняется.
Может, где-то что неправильно написал в коде, т к занялся этим сегодня только. В общем, помогите, пожалуйста.
| Код |
|---|
Sub Сортировка_матрицы() ' Сортировка_матрицы Макрос For i = 13 To 17 For j = 1 To 10 For k = 13 To 17 For l = 1 To 10 If l = 10 And k = 17 Then ' Ничего не делаем Else If l = 10 And Cells(k, l).Value > Cells(k + 1, 1).Value Then Temp = Cells(k, l).Value Cells(k, l).Value = Cells(k + 1, 1).Value Cells(k + 1, 1).Value = Temp Else If Cells(k, l).Value > Cells(k, l + 1).Value Then Temp = Cells(k, l).Value Cells(k, l).Value = Cells(k, l + 1).Value Cells(k, l + 1).Value = Temp End If End If End If Next l Next k Next j Next i End Sub |
Алгоритм простой, как два пальца. Вот только что в коде не так, не пойму, ну или я в синтаксисе что-то недопонял. Может, лишнее условие выполняется.
Изменено: - 24.04.2018 16:20:19
