Hogyan rendezhet több sort vagy oszlopot egyszerre egymástól függetlenül az Excelben?
Az Excelben alkalmazhatja a Rendezés funkciót, hogy csak egy sort vagy oszlopot rendezzen egy oszloptartományban, de ha egyszerre több sort vagy oszlopot kell egymástól függetlenül rendezni, a következő képernyőkép megjelenítéséhez. Van-e gyors módja ennek a feladatnak az Excelben történő megoldására?
Rendezzen több oszlopot egymástól függetlenül, VBA kóddal
Több sort rendezhet egymástól függetlenül, VBA kóddal
Rendezzen több oszlopot egymástól függetlenül, VBA kóddal
Ha több oszlopot akar növekvő sorrendben rendezni, a következő VBA-kód segíthet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Több oszlop rendezése egymástól függetlenül:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az egyes oszlopok alapján rendezni kívánt adattartományt, lásd a képernyőképet:
4. Kattintson a gombra OK, az egyes oszlopokat egyszerre egymástól függően rendezték, lásd a képernyőképet:
Több sort rendezhet egymástól függetlenül, VBA kóddal
Ha több sort akar önállóan rendezni, itt van egy VBA kód is.
1. Válassza ki az egyes sorok alapján rendezni kívánt adatokat.
2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Több sort rendezhet egyszerre egymástól függetlenül:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, az egyes sorok adatait egyszerre rendezték, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!