Note: The other languages of the website are Google-translated. Back to English
English English

Jak přesunout každý druhý řádek do sloupce v aplikaci Excel

Zkoušeli jste někdy přesunout všechna data druhého řádku do sloupce v aplikaci Excel, například přesunout každý lichý řádek do jednoho sloupce a každý sudý řádek do druhého sloupce, které jsou uvedeny níže. Zde najdu několik triků, které tento problém zvládnou.

doc-každý-další-řádek-sloupec-1

Přesuňte každý druhý řádek do sloupce pomocí vzorce

Přesuňte každý druhý řádek do sloupce pomocí VBA

Přesuňte každý druhý řádek do sloupce pomocí Kutools pro Excel

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina Přesuňte každý druhý řádek do sloupce pomocí vzorce


Pro většinu uživatelů aplikace Excel je použití vzorce k řešení problému v aplikaci Excel nejjednodušší způsob.

1. Vyberte buňku vedle svých dat a zadejte tento vzorec = IF (ISEVEN (ROW (B2)), B2, "") (B2 označuje data, která chcete získat) a stiskněte vstoupit poté přetáhněte automatické vyplnění a vyplňte požadovaný rozsah pomocí tohoto vzorce. V tomto sloupci jsou nyní získána data každého druhého řádku.

doc-každý-další-řádek-sloupec-2

2. Poté vyberte další buňku vedle výše uvedeného sloupce a zadejte tento vzorec = IF (ISODD (ROW (B3)), B3, "") (B3 jsou data, která chcete získat) a stiskněte vstoupit poté přetáhněte automatické vyplnění a vyplňte požadovaný rozsah pomocí tohoto vzorce. Nyní jsou v tomto sloupci získána data třetího řádku.

doc-každý-další-řádek-sloupec-3


šipka modrá pravá bublina Přesuňte každý druhý řádek do sloupce pomocí VBA

Následující VBA také může přesunout každý druhý řádek do sloupce.

1. lis F11 + Alt klávesy společně na klávesnici otevřete Microsoft Visual Basic pro aplikace okno.

2. Pak klikněte na tlačítko Vložit > Modul pro vložení nového okna modulu. A potom zkopírujte následující kód VBA do okna.

VBA: Přesuňte každý druhý řádek do sloupce.

Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

 

3. cvaknutí Běh nebo F5 na klávesnici a objeví se dialogové okno pro výběr rozsahu, který chcete přesunout. Viz snímek obrazovky:

doc-každý-další-řádek-sloupec-4

4. Pak klikněte na tlačítko OK pro zobrazení druhého dialogového okna pro výběr buňky k odeslání výsledku. Viz snímek obrazovky:

doc-každý-další-řádek-sloupec-5

5. cvaknutí OKa můžete vidět výsledek zobrazený níže:

doc-každý-další-řádek-sloupec-6


šipka modrá pravá bublina Přesuňte každý druhý řádek do sloupce pomocí Kutools pro Excel

Kromě vzorců a VBA, pokud jste nainstalovali Kutools pro Excel, můžete použít jeho Rozsah transformace funkce pro rychlý přesun každého druhého řádku do sloupce.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

1. Vyberte rozsah, který chcete přesunout každý druhý řádek, a klepněte na Kutools > Převaděč rozsahu > Rozsah transformace. Viz snímek obrazovky:

doc-každý-další-řádek-sloupec-7

2. V Rozsah transformace dialog, zkontrolujte Jeden sloupec k rozsahu in Typ transformace sekci a zkontrolujte Pevná hodnota poté vyberte nebo zadejte 2 v seznamu v Řádky na záznam sekce. Viz screenshot:

doc-každý-další-řádek-sloupec-8

3. cvaknutí Ok Chcete-li otevřít dialogové okno a vybrat jednu buňku, aby se výsledek zobrazil, viz screenshot:

doc-každý-další-řádek-sloupec-9

4. Pak klikněte na tlačítko OK. Výsledek můžete vidět, jak je znázorněno níže:

doc-každý-další-řádek-sloupec-10

Další informace o rozsahu transformace.


Relativní články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Co takhle převést každý řádek, ve kterém jsou slova, na sloupce, a ne na čísla?
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát! tohle se povedlo :)
Tento komentář byl moderátorem webu minimalizován
Skvěle, děkuji!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění