Как одновременно сортировать несколько строк или столбцов независимо друг от друга в 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. После этого нажмите кнопку ОК. Все столбцы будут независимо отсортированы одновременно (см. снимок экрана).
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Одновременная независимая сортировка нескольких строк с помощью кода 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, чтобы запустить этот код. Данные в каждой строке будут отсортированы одновременно (см. снимок экрана).
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек