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

Jak rozdělit sloupec každý druhý řádek v aplikaci Excel?

doc rozdělit každý druhý řádek 1

Například mám dlouhý seznam dat a teď chci rozdělit sloupec na dva seznamy rovnoměrně každým druhým řádkem, jak ukazuje následující snímek obrazovky. Existují nějaké dobré způsoby, jak se s tímto úkolem vypořádat v aplikaci Excel?

Rozdělte sloupec každý druhý řádek pomocí vzorců

Rozdělte sloupec každý druhý řádek pomocí kódu VBA

Rozdělte sloupec každý druhý řádek pomocí Kutools pro Excel


šipka modrá pravá bublina Rozdělte sloupec každý druhý řádek pomocí vzorců

Následující vzorce vám mohou pomoci rychle rozdělit sloupec na dva sloupce po každém druhém řádku, postupujte takto:

1. Zadejte tento vzorec do prázdné buňky, například C2 =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), viz screenshot :

doc rozdělit každý druhý řádek 2

2. Poté táhněte úchyt výplně dolů, dokud se chyby nezobrazí v buňkách, viz screenshot:

doc rozdělit každý druhý řádek 3

3. Poté zadejte další vzorec do buňky D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)a přetáhněte popisovač výplně dolů do buněk, dokud se neobjeví chybové hodnoty, a hodnoty sloupců byly rozděleny do dvou sloupců v každém druhém řádku, viz screenshot:

doc rozdělit každý druhý řádek 4


šipka modrá pravá bublina Rozdělte sloupec každý druhý řádek pomocí kódu VBA

Pokud vás zajímá kód VBA, můžu zde hovořit o kódu, který vám pomůže vyřešit tento problém.

1. Podržte ALT + F11 klíče v aplikaci Excel a otevře 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: Rozdělte sloupec na dva sloupce v každém druhém řádku

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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 OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr rozsahu dat, který chcete rozdělit, viz screenshot:

doc rozdělit každý druhý řádek 5

4, A klikněte na tlačítko OK, je vyskočeno další okno s výzvou, které vám umožní vybrat buňku pro vložení výsledku, viz screenshot:

doc rozdělit každý druhý řádek 6

5. Pak klikněte na tlačítko OKa sloupec byl rozdělen na dva sloupce v každém druhém řádku. Viz snímek obrazovky:

doc rozdělit každý druhý řádek 7


šipka modrá pravá bublina Rozdělte sloupec každý druhý řádek pomocí Kutools pro Excel

Pokud se chcete dozvědět více nových věcí, mohu doporučit výkonný nástroj -Kutools pro Excel, S jeho Rozsah transformace nástroj, můžete rychle převést jeden řádek nebo sloupec na řadu buněk a naopak.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, postupujte následovně :( Zdarma ke stažení Kutools pro Excel )

1. Vyberte data sloupců, která chcete rozdělit na dva sloupce po každém druhém řádku.

2. Pak klikněte na tlačítko Kutools > Rozsah > Rozsah transformace, viz screenshot:

3. V Rozsah transformace dialogové okno vyberte Jeden sloupec k rozsahu pod Typ transformace, pak zvolte Pevná hodnota a zadejte 2 do pole v Řádky na záznam sekce, viz screenshot:

doc rozdělit každý druhý řádek 9

4. Pak klikněte na tlačítko Ok Tlačítko a vyskočí okno s výzvou, aby vám připomnělo vybrat buňku, do které chcete výsledek odeslat, viz screenshot:

doc rozdělit každý druhý řádek 10

5, klikněte OK, byla data seznamu rozdělena do dvou sloupců v každém druhém řádku.

Klepnutím získáte další informace o tomto nástroji Transform Range.

Zdarma ke stažení Kutools pro Excel


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
Jako náhradní řešení můžete provést následující: Pomocí výše uvedeného příkladu 1. Napište "=a2" do c2 a "=a3" do d3. 2. Nyní vyberte c2 až d3. 3. Přetáhněte úchyt výplně rovnoběžně se všemi daty. 4. Nyní vymažte buňku a2 a posuňte buňky nahoru. 5. Nyní musíme převést výsledky vzorce na vypočítané hodnoty. To lze snadno provést zkopírováním všech dat včetně prázdných řádků a vložením hodnot přímo na sebe. 6. Nyní můžete jednoduše seřadit libovolný sloupec abecedně a zobrazit všechna data.
Tento komentář byl moderátorem webu minimalizován
Jak to udělat naopak? Získat informace o dvou sloupcích v jednom řádku?
Tento komentář byl moderátorem webu minimalizován
Ahoj Jas,
Chcete-li provést opak, abyste převedli data ze dvou sloupců do jednoho sloupce, měli byste použít níže uvedený kód VBA:

Sub ConvertRangeToColumn()
Dim Range1 jako rozsah, Range2 jako rozsah, Rng jako rozsah
Dim rowIndex as Integer
xTitleId = "Kutoolsfor Excel"
Nastavit Rozsah1 = Výběr aplikace
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Převést na (jedna buňka):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
Pro každý Rng v rozsahu1.řádky
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
další
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Zkuste to prosím, doufám, že vám to pomůže!
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í