Hogyan lehet az oszlopot érték szerint automatikusan rendezni az Excelben?
Például van egy vásárlási táblázata, ahogy az alábbi képernyőképen látható. Most azt szeretné, hogy az Ár oszlop automatikusan rendeződjön, amikor új számokat/árakat ír be ebbe az oszlopba, hogyan tudná ezt megoldani? Itt bemutatok egy VBA makrót, amely segít egy adott oszlop érték szerinti automatikus rendezésében az Excelben.
Oszlop automatikus rendezése érték szerint a VBA segítségével
Oszlop automatikus rendezése érték szerint a VBA segítségével
Ez a VBA makró az összes adatot egy adott oszlopban automatikusan rendezi, amint új adatokat ad meg, vagy megváltoztatja az értéket az Excel oszlopában.
1. Kattintson a jobb gombbal az aktuális lap nevére a Lap tabsáv, majd kattintson a Kód megtekintése a jobb egérgombbal kattintva.
2. A megnyíló Microsoft Visual Basic for Application párbeszédpanelen illessze be a következő VBA makrókódot a nyitó ablakba.
VBA: Oszlop automatikus rendezése az Excelben
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Megjegyzések:
1) A fenti vba kódban, B: B azt jelenti, hogy automatikusan rendezi a B oszlopot, B1 az első cella a B oszlopban, B2 a második cella a B oszlopban, és igényei szerint módosíthatja őket.
2) A részlet Fejléc:=xlIgen Az 5. sorban azt mondja az Excelnek, hogy a rendezni kívánt tartománynak van fejléce, így a tartomány első sora nem kerül bele a rendezésbe. Ha nincs fejléc, kérjük, módosítsa erre Fejléc:=xlNo; és változtass Key1:=Tartomány("B2") a 4. sorban, hogy Key1:=Tartomány("B1").
3. Ezután térjen vissza a munkalapra, amikor új számot ír be az Ár oszlopba, vagy módosítja a meglévő árakat, az Ár oszlop automatikusan növekvő sorrendbe kerül.
Megjegyzések: Ha új számot ír be az Ár oszlopba, akkor az eredeti számok alatti első üres cellába kell beírnia a számot. Ha üres cellák vannak az újonnan beírt szám és az eredeti számok között, valamint üres cellák az eredeti számok között, akkor ez az oszlop nem lesz automatikusan rendezve.
Bemutató: Oszlop automatikus rendezése érték szerint, VBA-val az Excelben
Könnyen rendezheti az Excel előfordulási gyakorisága szerint
Kutools Excelhez Haladó rendezés A segédprogram támogatja az adatok gyors rendezését a szöveg hossza, vezetékneve, abszolút értéke, gyakorisága stb. szerint.
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!