Jak rozdělit sloupec každý druhý řádek v aplikaci Excel?
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í 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 :
2. Poté táhněte úchyt výplně dolů, dokud se chyby nezobrazí v buňkách, viz screenshot:
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:
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:
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:
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:
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:
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:
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ší 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!