Как сортировать два массива данных?

[clever77]

В Excel есть расширенная сортировка данных, когда таблица из 2-х столбцов сортируется связано,т.е сортируем столбец А от мин к макс, а второй столбец В сортируется по условию первого
Вот пример сортировки диапозона

Sub Сортировка диапазона()

With ActiveWorkbook.Worksheets("Лист4"). Sort
.SetRange Range("A1:B45")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Как быть если вместо диапазона ячеек я хочу произвести сортировку дыух массивов одинакового размера, к примеру Массив А() - это столбецА, Массив В() - это столбец В
Что нужно поставить вместо строки
.SetRange Range("A1:B45")

Заранее благодарен.

[R Dmitry]

Сообщение от clever77

В Excel есть расширенная сортировка данных, когда таблица из 2-х столбцов сортируется связано,т.е сортируем столбец А от мин к макс, а второй столбец В сортируется по условию первого
Вот пример сортировки диапозона

Sub Сортировка диапазона()

With ActiveWorkbook.Worksheets("Лист4"). Sort
.SetRange Range("A1:B45")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Как быть если вместо диапазона ячеек я хочу произвести сортировку дыух массивов одинакового размера, к примеру Массив А() - это столбецА, Массив В() - это столбец В
Что нужно поставить вместо строки
.SetRange Range("A1:B45")

Заранее благодарен.

я бы сделал так
Выгрузил бы ваши массивы на лист, затем отсортировал как надо, считал бы в двухмерный массив, удалил данные с листа
при желании функцией index можно разобрать на одномерные массивы

быстро, надежно , мало кода

[Hugo121]

Есть такой код сотировки "пузырьком" массива, созданного из двух столбцов:

Private Sub SortArray(ByRef a As Variant)
    Dim i As Long, j As Long
    Dim t As Variant, tt As Variant
  
    'standard bubble sort loops
    For i = LBound(a) To UBound(a) - 1
        For j = i + 1 To UBound(a)
            If a(i, 2) < a(j, 2) Then 'change to <> for change order
                t = a(i, 2): tt = a(i, 1)
                a(i, 2) = a(j, 2): a(i, 1) = a(j, 1)
                a(j, 2) = t: a(j, 1) = tt
            End If
        Next j
    Next i
End Sub

Сюда добавить параметром второй массив (или сделать его публичным) и передвигать его элементы синхронно вместо второго элемента массива a.

[clever77]

Сообщение от Hugo121

Есть такой код сотировки "пузырьком" массива, созданного из двух столбцов:

Private Sub SortArray(ByRef a As Variant)
    Dim i As Long, j As Long
    Dim t As Variant, tt As Variant
  
    'standard bubble sort loops
    For i =  LBound(a) To UBound(a) - 1
       For j = i + 1 To UBound(a)
            If a(i, 2) < a(j, 2) Then 'change to <> for change order
                t = a(i, 2): tt = a(i, 1)
                a(i, 2) = a(j, 2): a(i, 1) = a(j, 1)
                a(j, 2) = t: a(j, 1) = tt
            End If
        Next j
    Next i
End Sub

Сюда добавить параметром второй массив (или сделать его публичным) и передвигать его элементы синхронно вместо второго элемента массива a.

Спасибо.
Только размерномть массива надо уменьшить еще на 1, а то выдает ошибку
S=длина массива
price -первый массив
volume - второй
For i = 0 To S - 2
For j = i + 1 To S-1
If price(i) > price(j) Then 'change to <> for change order
t = price(i): tt = Volume(i)
price(i) = price(j): Volume(i) = Volume(j)
price(j) = t: Volume(j) = tt
End If
Next j
Next i
Просто я не использую
LBound(a) To UBound(a)
т.к. загружаю данные из файла, где длина массива не постоянна и для того что бы создать массив, мне надо определить длину загружаемых данных, обозначаю переменной S.
Если длина данных s=100 строк, то
LBound(a)=0 ,
UBound(a)=99

Теперь все работает. Еще раз спасибо.