Сортировка

[yurec_st]

У меня вот такая проблема. Надо отсортировать список преподов. Сами имена преподов отсортировать получилось. Я не знаю как сделать что бы при сортировке вместе с именами преподов перемещались и значения столбцов над которыми эти имена находятся. Готовый макрос сортировки в Excel записывать нельзя. Подскажите, пожалуста, как это реализовать

[doober]

Вам надо программно отсортировать столбцы?

[yurec_st]

Вам надо программно отсортировать столбцы?

Да. Например In: name3 name 4 name1 name 5
16 20 3 4
Out:name1 name3 name4 name 5
3 16 20 4
Тоесть что бы имена оно отсортировало и переместило с ними значения

[doober]

Реально.я бы делал не так,но для препод пойдет

Option Base 1

Sub SortSheets()
 Dim Rez
     Dim Names() As String
     Dim N As Integer, NN As Integer
     Dim i As Integer, L As Integer, A As Integer
     Worksheets("Лист1").Activate
     N = 2
     While (Cells(2, N + 1).Value <> "")
        N = N + 1
     Wend
     NN = 3
     While (Cells(NN, 2).Value <> "")
        NN = NN + 1
     Wend
     
          ReDim Names(N - 2, 2)
          Rez = Range("C3:H" & NN).Value
     For i = 1 To N - 2
         Names(i, 1) = Cells(2, i + 2).Value
          Names(i, 2) = i + 2
     Next i
     Call BubbleSort(Names)
     For i = 1 To N - 2
     Cells(2, i + 2).Value = Names(i, 1)
A = Names(i, 2)
       For L = 1 To NN - 3

      Cells(L + 2, i + 2).Value = Rez(L, A - 2)
      
     Next

       Next
End Sub
Public Sub BubbleSort(List() As String)

    Dim First As Integer, Last As Integer
    Dim i As Integer, j As Integer
    Dim Temp As String
      Dim Temp1 As String
    First = LBound(List)
    Last = UBound(List)
    For i = First To Last - 1
         For j = i + 1 To Last
             If List(i, 1) > List(j, 1) Then
                 Temp = List(j, 1)
                  Temp1 = List(j, 2)
                 List(j, 1) = List(i, 1)
                   List(j, 2) = List(i, 2)
                 List(i, 1) = Temp
                   List(i, 2) = Temp1
             End If
         Next j
    Next i
 

End Sub

[yurec_st]

Большое Вам спасибо doober. Все отлично работает)