Použití makra k řazení dat ve více sloupcích jako jeden sloupec v aplikaci Excel

Překlady článku Překlady článku
ID článku: 247311 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Aplikace Microsoft Excel nemá vestavěnou metodu řazení (snaking) novinové sloupce dat Tento článek obsahuje ukázkové makro řazení dat ve formátu novinový sloupec.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo předpokládané. Zahrnuje, ale není omezen na předpokládaných záruk obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a nástroje, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však tyto příklady funkce nebo konstrukce podle konkrétních požadavků uživatele.

Vestavěné třídění

Aplikace Microsoft Excel obvykle použijete funkci třídění řazení seznam. Seznam v aplikaci Excel je řada řádků listu obsahujících související data například databáze faktur nebo sada jména a telefonní čísla klientů. Můžete Použití seznamu jako databáze, ve kterém je každý řádek záznamu a jsou sloupce pole. První řádek seznamu obsahuje popisky sloupců, obvykle pro Příklad:
   A1: Q1   B1: Q2   C1: Q3
   A2: 10   B2: 2    C2: 4
   A3: 14   B3: 18   C3: 9
   A4: 7    B4: 17   C4: 12
   A5: 1    B5: 13   C5: 5
   A6: 11   B6: 8    C6: 16
   A7: 3    B7: 6    C7: 15
				
Pokud jsou seřazeny ve vzestupném pořadí podle Q1 pole seznamu (sloupec A) výsledky by takto:
   A1: Q1   B1: Q2   C1: Q3
   A2: 1    B2: 13   C2: 5
   A3: 3    B3: 6    C3: 15
   A4: 7    B4: 17   C4: 12
   A5: 10   B5: 2    C5: 4
   A6: 11   B6: 8    C6: 16
   A7: 14   B7: 18   C7: 9
				

Řazení novinových sloupců

Novinové sloupce a snaking sloupce jsou různé podmínky Formát dat stejného typu. V novinových sloupců dat vyplní jeden sloupec a pokračuje v horní části dalšího sloupce. V takovém případě pravděpodobně neobsahuje data není nutné popisky sloupců, například:
   A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
				
Ukázkové makro v tomto článku můžete použít řazení novin sloupce vzestupně. Používáte-li ukázkové makro výše uvedených dat výsledky jsou následující:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				
Zobrazit řazení makro fungovat jak je popsáno, postupujte takto:
  1. Otevřete nový sešit.
  2. Zadejte následující ukázková data v listu:
       A1: 10   B1: 2    C1: 4
       A2: 14   B2: 18   C2: 9
       A3: 7    B3: 17   C3: 12
       A4: 1    B4: 13   C4: 5
       A5: 11   B5: 8    C5: 16
       A6: 3    B6: 6    C6: 15
    					
  3. Na Nástroje příkaz Makroa potom klepněte na tlačítko Editor jazyka Visual Basic.
  4. Na Vložit nabídky, klepněte na tlačítko Modul.
  5. V modulu zadejte následující kód:

    Poznámka: Následující příklad ukazuje, jak seřadit vzestupně pořadí. Toto nastavení můžete změnit úpravou hodnoty "Order1: =" argumentxlDescending.
       Sub SortAllRangeData()
       ' Place column header for temporary sort area.
       Range("IV1").Value = "Numbers"
       
       ' Move numbers to temporary sort location.
       For Each cell In Selection
          Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
       Next cell
       
       ' Sort numbers in ascending order.
       Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"),  _
       Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            
       ' Move sorted data back to original sheet location.
    
       Selection(1, 1).Activate ' Make sure the ActiveCell is the
                                ' top left of Selection first.
       CCnt = Selection.Columns.Count
       RCnt = Selection.Rows.Count
       CellCnt = Selection.Cells.Count
       Tcell = 2
       For c = 1 To CCnt
         For r = 1 To RCnt
            Range(ActiveCell.Address).Offset(r - 1, c - 1).Value =  _
            Range("iv" & Tcell).Value
            Tcell = Tcell + 1
         Next r
       Next c
       
       ' Clean up temporary sort location.
       Range("IV1", Range("IV1").End(xlDown)).Clear
    End Sub
    					
  6. Na Aplikace Excel nabídky v aplikaci Microsoft Excel X pro Mac a v novějších verzích aplikace Excel for Mac nebo v jiných verzích aplikace Excel v nabídce Soubor klepněte na tlačítko Zavřít a návrat do Microsoft Aplikace Excel.
  7. Vyberte A1:C6.
  8. Na Nástroje příkaz Makroa potom klepněte na tlačítko Makra. Vyberte SortAllRangeData Makro a klepněte na tlačítko Spustit.
Všechna data ve vybrané oblasti seřazena, a Zobrazí se následující:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				

Odkazy

Excel X pro Mac a novější verze

Další informace o řazení Nápověda k aplikaci Excel na Nápověda Nabídka Typ řazení, klepněte na tlačítko Hledánía pak klepněte na téma ji zobrazte.

Další informace o použití metody řazení z editoru jazyka Visual Basic Nápověda pro Visual Basic na Nápověda Nabídka Typ Metoda řazení, klepněte na tlačítko Hledánía potom klepněte na tlačítko Zobrazit Metoda řazení.

Excel 2001 pro Mac

Další informace o řazení klepněte Pomocník Office, typ řazení seznamu, klepněte na tlačítko Hledánía pak klepněte na téma ji zobrazte.

Poznámka: Pokud pomocník je skrytý, klepněte Pomocník Office tlačítka Standard na panelu nástrojů.

Další informace o použití metody řazení z editoru jazyka Visual Basic klepněte Pomocník Office, typ Metoda řazení, klepněte na tlačítko Hledánía potom klepněte na tlačítko Zobrazit Metoda řazení.

Vlastnosti

ID článku: 247311 - Poslední aktualizace: 22. září 2012 - Revize: 9.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X pro počítače Macintosh
  • Microsoft Excel 2001 pro počítače Macintosh
  • Microsoft Excel 98 pro počítače Macintosh
Klíčová slova: 
dftsdahomeportal kbautomation kbprogramming kbhowto kbmt KB247311 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku: 247311

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com