Jak třídit data na více pracovních listech najednou?
V aplikaci Excel můžeme rychle a snadno řadit data v listu na základě konkrétního sloupce, ale zkusili jste někdy setřídit data na více pracovních listech? Chcete-li je roztřídit jeden po druhém, bude časově náročné, v tomto článku představím snadný způsob jejich řešení.
Řadit data na více pracovních listech najednou pomocí kódu VBA
Řadit data na více pracovních listech najednou pomocí kódu VBA
Chcete-li seřadit data na základě jednoho sloupce ve všech listech sešitu, může vám pomoci následující kód VBA.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Řazení dat na více pracovních listech najednou:
Sub SortAllSheets()
'Updateby Extendoffice
Dim WS As Worksheet
ActiveSheet.Range("a1:f1").Select
Selection.Copy
On Error Resume Next
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
Next WS
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
Application.ScreenUpdating = True
End Sub
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, všechny listy, které mají stejné formátování, byly seřazeny podle sloupce E každého listu v sestupném pořadí najednou.
Poznámka: Ve výše uvedeném kódu, A: F je rozsah dat, který chcete seřadit, E je písmeno sloupce, podle kterého chcete seřadit.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!