Як сортувати декілька рядків або стовпців самостійно одночасно в Excel?
В Excel ви можете застосувати функцію сортування для сортування лише одного рядка або стовпця в діапазоні стовпців, але якщо вам потрібно сортувати кілька рядків або стовпців одночасно, щоб отримати наступний знімок екрана. Чи є швидкі способи вирішення цього завдання в Excel?
Сортуйте кілька стовпців одночасно незалежно за допомогою коду VBA
Відсортуйте кілька рядків незалежно відразу за допомогою коду VBA
Сортуйте кілька стовпців одночасно незалежно за допомогою коду VBA
Щоб самостійно відсортувати кілька стовпців за зростанням, вам може допомогти наступний код VBA.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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, кожен стовпець відсортовано відразу залежно, див. скріншот:
Відсортуйте кілька рядків незалежно відразу за допомогою коду VBA
Якщо ви хочете сортувати кілька рядків самостійно, тут також є код VBA для вас.
1. Виберіть дані, які потрібно сортувати, виходячи з кожного рядка.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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 для запуску цього коду, дані в кожному рядку відсортовані відразу, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
