Vložte prázdný sloupec do každého druhého sloupce v Excelu – 4 snadné způsoby

Při práci s daty v Excelu jsou chvíle, kdy je potřeba mezi existující sloupce vložit prázdné sloupce. Dělat to ručně pro malé datové sady je jednoduché, ale pro větší datové sady je nezbytný účinný přístup. Tento článek představí některé užitečné metody řešení tohoto úkolu v aplikaci Excel.

Vložte prázdný sloupec do každého druhého nebo n-tého sloupce v Excelu

• Pomocí klávesové zkratky
• S pomocným sloupcem a funkcí řazení
• Jen s několika kliknutími Kutools pro Excel
• S kódem VBA

Vložte prázdný sloupec do každého druhého nebo n-tého sloupce pomocí klávesové zkratky

U menších datových sad je ruční vkládání prázdných sloupců pomocí klávesových zkratek rychlé a efektivní. Postupujte takto:

1. Vyberte sloupec kliknutím na jeho číslo sloupce, kam chcete vložit prázdný sloupec.
2. Poté stiskněte a podržte klávesu Ctrl na klávesnici a poté postupně klikněte na čísla sloupců, která chcete vybrat. Viz snímek obrazovky:
   
3. Poté stiskněte Ctrl+Shift+Plus klíče se mezi každý druhý sloupec vkládají prázdné sloupce. Viz snímek obrazovky:
   

Vložte prázdný sloupec do každého druhého nebo n-tého sloupce pomocí pomocného sloupce a funkce Seřadit

Pokud chcete vkládat prázdné sloupce systematicky za každý druhý nebo n-tý sloupec ve větší datové sadě, může metoda pomocných sloupců v kombinaci s funkcí řazení ušetřit čas:

1. Vložte nový prázdný řádek těsně nad datovou sadu.
2. Do prvních dvou buněk v řádku zadejte číslo 1 a 2. Poté vyberte buňky A1 a B1 a poté přetáhněte úchyt výplně doprava k poslední datové buňce, vyplní se seznam zvyšujících se čísel, jak je uvedeno níže:
   
3. Zkopírujte pořadová čísla a vložte je těsně za poslední číslo ve stejném řádku.
   
4. Vyberte celý rozsah dat a poté klikněte Data > Typ, viz screenshot:
   
5. V následujícím Typ , klepněte na tlačítko OK možnosti .
   
6. Potom vyberte Třídit zleva doprava a klepněte na tlačítko OK zpět do Typ dialogové okno.
   
7. Vyberte přidaný nový řádek z Seřadit podle rozevíracího seznamu a ostatní možnosti ponechte beze změny. Poté klikněte OK zavřete dialogové okno.
   
8. Nyní budou data seřazeny podle hodnot v pomocném řádku a za každý druhý sloupec bude vložen prázdný sloupec.
   
9. Nakonec můžete pomocný řádek v případě potřeby smazat.

Vložte prázdný sloupec do každého druhého nebo n-tého sloupce pouze několika kliknutími

Kutools pro Excel poskytuje jednoduché a efektivní řešení pro automatizaci tohoto úkolu. Pouhými několika kliknutími můžete rychle vkládat prázdné sloupce v určitých intervalech, což šetří čas a zvyšuje produktivitu. V této části vám ukážeme, jak používat Kutools pro Excel k snadnému vkládání prázdných sloupců.

Po stažení a instalaci Kutools pro Excel, Klepněte na tlačítko Kutools > Vložit > Vložte prázdné řádky a sloupce k otevření Vložte prázdné řádky a sloupce dialogové okno.

1. Vyberte oblast dat, kam chcete vložit prázdné sloupce.
2. Vybrat Prázdné sloupce z Vložte typ sekce.
3. Poté zadejte čísla do Interval si Sloupce textová pole, jak potřebujete. (Zde za jeden sloupec vložím dva prázdné sloupce, takže do polí Interval of a Columns zadávám samostatně 1 a 2.)
4. Konečně klikněte na tlačítko OK zavřete dialogové okno.
   

Kutools okamžitě vloží prázdné sloupce podle vašeho zadaného intervalu, viz snímek obrazovky:

Vložte prázdný sloupec do každého druhého nebo n-tého sloupce podle kódu VBA

Pro pokročilé uživatele nebo velké datové sady může VBA automatizovat vkládání prázdných sloupců. Zde je makro VBA, které vkládá prázdné sloupce do každého druhého nebo n-tého sloupce.

1. Podržte stisknuté tlačítko 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 okna modulu.
   Kód VBA: Vložte do dat určitý počet prázdných sloupců v pevných intervalech

   Sub InsertColumnsAtIntervals()
       'Updatedby Extendoffice
       Dim WorkRng As Range
       Dim xInterval As Integer
       Dim xCols As Integer
       Dim xColsCount As Integer
       Dim xNum1 As Integer
       Dim xNum2 As Integer
       Dim xWs As Worksheet
       Dim xTitleId As String
       Dim i As Integer
       xTitleId = "Kutools for Excel"
       Set WorkRng = Application.Selection
       Set WorkRng = Application.InputBox("Select column range:", xTitleId, WorkRng.Address, Type:=8)
       xColsCount = WorkRng.Columns.Count
       xInterval = Application.InputBox("Enter column interval:", xTitleId, 1, Type:=1)
       xCols = Application.InputBox("How many blank columns to insert at each interval?", xTitleId, 1, Type:=1)
       xNum1 = WorkRng.Column + xInterval
       xNum2 = xCols + xInterval
       Set xWs = WorkRng.Parent
       For i = 1 To Int(xColsCount / xInterval)
           xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xCols - 1)).EntireColumn.Insert
           xNum1 = xNum1 + xNum2
       Next
       MsgBox "Columns inserted successfully!", vbInformation
   End Sub
   

3. Po vložení tohoto kódu stiskněte F5 klíč ke spuštění tohoto kódu. V poli výzvy vyberte rozsah dat, kam chcete vložit prázdné sloupce. Poté klikněte OK, viz screenshot:
   
4. Objeví se další okno s výzvou, zadejte číslo intervalu sloupce. A pak klikněte OK, viz screenshot:
   
5. Do následujícího pole výzvy zadejte počet prázdných sloupců, které chcete vložit. Poté klikněte OK, viz screenshot:
   

Nyní se konkrétní počet prázdných sloupců vloží do existujících dat v pravidelném intervalu, který jste zadali, viz snímek obrazovky:

Stručně řečeno, vkládání prázdných sloupců do každého druhého sloupce nebo v určitých intervalech v aplikaci Excel lze dosáhnout pomocí různých metod v závislosti na vašich potřebách a velikosti datové sady. Výběrem metody, která nejlépe vyhovuje vašemu pracovnímu postupu, můžete výrazně zlepšit efektivitu a zefektivnit své úkoly v Excelu. Pokud máte zájem prozkoumat další tipy a triky pro Excel, náš web nabízí tisíce výukových programů.