Как отсортировать несколько строк или столбцов независимо одновременно в Excel?

В Excel вы можете применить функцию сортировки, чтобы отсортировать только одну строку или столбец в диапазоне столбцов. Однако, если вам нужно отсортировать несколько строк или столбцов независимо друг от друга за один раз, как показано на следующем скриншоте, существуют ли быстрые способы выполнить эту задачу в Excel?

Сортировка нескольких столбцов независимо одновременно с помощью кода VBA

Сортировка нескольких строк независимо одновременно с помощью кода VBA

Сортировка нескольких столбцов независимо одновременно с помощью кода VBA

Чтобы отсортировать несколько столбцов независимо в порядке возрастания, следующий код VBA может помочь вам, пожалуйста, сделайте следующее:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставка > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Сортировка нескольких столбцов независимо одновременно:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Затем нажмите клавишу F5 для запуска этого кода, появится диалоговое окно с запросом выбрать диапазон данных, который вы хотите отсортировать на основе каждого столбца, см. скриншот:

4. После этого нажмите OK, каждый столбец будет отсортирован независимо одновременно, см. скриншот:

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Сортировка нескольких строк независимо одновременно с помощью кода VBA

Если вы хотите отсортировать несколько строк независимо, вот также код VBA для вас.

1. Выберите данные, которые вы хотите отсортировать на основе каждой строки.

2. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

3. Щелкните Вставка > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Сортировка нескольких строк независимо одновременно:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Затем нажмите клавишу F5 для запуска этого кода, данные в каждой строке будут отсортированы одновременно, см. скриншот: