Cum se sortează mai multe rânduri sau coloane independent simultan în Excel?
În Excel, puteți aplica caracteristica Sortare pentru a sorta doar un rând sau o coloană dintr-o gamă de coloane, dar, dacă trebuie să sortați mai multe rânduri sau coloane independent simultan pentru a afișa următoarea captură de ecran. Există modalități rapide de a rezolva această sarcină în Excel?
Sortați mai multe coloane independent simultan cu codul VBA
Sortează mai multe rânduri independent simultan cu codul VBA
Sortați mai multe coloane independent simultan cu codul VBA
Pentru a sorta mai multe coloane independent într-o ordine crescătoare, următorul cod VBA vă poate ajuta, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: sortați mai multe coloane independent simultan:
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. Apoi apăsați F5 tasta pentru a rula acest cod și apare o casetă de prompt pentru a vă reaminti să selectați intervalul de date pe care doriți să îl sortați în funcție de fiecare coloană, consultați captura de ecran:
4. Apoi faceți clic pe OK, fiecare coloană a fost sortată în mod dependent simultan, vezi captura de ecran:
Sortează mai multe rânduri independent simultan cu codul VBA
Dacă doriți să sortați mai multe rânduri independent, iată și un cod VBA pentru dvs.
1. Selectați datele pe care doriți să le sortați în funcție de fiecare rând.
2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
3. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: sortați mai multe rânduri independent simultan:
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. Apoi apăsați F5 cheie pentru a rula acest cod, datele din fiecare rând au fost sortate simultan, vezi captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!