Jak sortować wiele wierszy lub kolumn niezależnie jednocześnie w programie Excel?
W programie Excel możesz zastosować funkcję Sortuj, aby posortować tylko jeden wiersz lub kolumnę w zakresie kolumn, ale jeśli chcesz posortować wiele wierszy lub kolumn niezależnie jednocześnie, aby uzyskać poniższy zrzut ekranu. Czy są jakieś szybkie sposoby rozwiązania tego zadania w programie Excel?
Sortuj wiele kolumn niezależnie jednocześnie za pomocą kodu VBA
Sortuj wiele wierszy niezależnie na raz za pomocą kodu VBA
Sortuj wiele kolumn niezależnie jednocześnie za pomocą kodu VBA
Aby posortować wiele kolumn niezależnie w kolejności rosnącej, poniższy kod VBA może ci pomóc, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Sortuj wiele kolumn niezależnie jednocześnie:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wyborze zakresu danych, który chcesz sortować na podstawie każdej kolumny, patrz zrzut ekranu:
4. A następnie kliknij OK, każda kolumna została od razu posortowana zależnie, patrz zrzut ekranu:
Sortuj wiele wierszy niezależnie na raz za pomocą kodu VBA
Jeśli chcesz sortować wiele wierszy niezależnie, tutaj jest również kod VBA.
1. Wybierz dane, które chcesz sortować na podstawie poszczególnych wierszy.
2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Sortuj wiele wierszy niezależnie na raz:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, dane w każdym wierszu zostały posortowane naraz, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!