Obsah
Tento příspěvek se zabývá přidáváním nových sloupců v Excelu. Přečtěte si, jak se naučit zkratky pro vložení jednoho nebo více sloupců, včetně nesousedících. Uchopte a sdílejte speciální makro VBA pro automatické přidávání každého dalšího sloupce.
Při hledání vhodného způsobu, jak do tabulky Excelu vložit nové sloupce, pravděpodobně najdete spoustu různých tipů a triků. V tomto článku jsem doufal, že se mi podaří shromáždit nejrychlejší a nejefektivnější způsoby, jak přidat jeden nebo více sousedních či nesousedních sloupců.
Když je vaše sestava v aplikaci Excel téměř hotová, ale pochopíte, že jí chybí sloupec pro zadání důležitých údajů, chopte se níže uvedených časově úsporných triků. Od zkratek pro vložení sloupce až po přidání každého dalšího sloupce - kliknutím na správný odkaz přejdete přímo k věci.
Vložit zkratku sloupce
Pokud je vaším úkolem rychle vložit jeden sloupec, jsou tyto kroky zdaleka nejrychlejší a nejjednodušší.
1. Klikněte na tlačítko dopisu sloupce bezprostředně napravo od místa, kam chcete vložit nový sloupec.
Tip: Celý sloupec můžete vybrat také tak, že vyberete libovolnou buňku a stisknete klávesovou zkratku Ctrl + mezerník.
2. Nyní stačí stisknout klávesy Ctrl + Shift + + (plus na hlavní klávesnici).
Tip: Pokud si na klávesové zkratky příliš nepotrpíte, můžete na vybraný sloupec kliknout pravým tlačítkem myši a zvolit možnost Vložte ze seznamu nabídek.
Vložení nového řádku v aplikaci Excel trvá opravdu jen dva jednoduché kroky. Přečtěte si, jak přidat do seznamu více prázdných sloupců.
Tip: Další užitečné klávesové zkratky najdete v článku 30 nejužitečnějších klávesových zkratek aplikace Excel.
Vložení více nových sloupců v aplikaci Excel
Může se stát, že budete potřebovat do listu přidat více než jeden nový sloupec. Neznamená to, že musíte sloupce vybírat jeden po druhém a pokaždé v aplikaci Excel stisknout klávesovou zkratku pro vložení sloupce. Naštěstí je možné vložit několik prázdných sloupců najednou.
1. Označte tolik sloupců, kolik nových sloupců chcete získat výběrem tlačítek sloupců. Nové sloupce se zobrazí ihned vlevo.
Tip: Totéž můžete provést, pokud vyberete několik sousedních buněk v jednom řádku a stisknete klávesy Ctrl + mezerník .
2. Stiskněte klávesovou zkratku Ctrl + Shift + + (plus na hlavní klávesnici) a zobrazí se několik nových vložených sloupců.
Tip: Stisknutím klávesy F4 zopakujete poslední akci nebo klávesami Ctrl + Y vložíte nové sloupce.
Tímto způsobem můžete v aplikaci Excel bez námahy přidat do tabulky několik nových sloupců. Pokud potřebujete přidat více nesousedících sloupců, podívejte se na níže uvedený postup.
Sčítání více nesousedících sloupců
Excel umožňuje vybrat více nesouvislých sloupců a pomocí klávesové zkratky vložit sloupec zobrazit nové sloupce vlevo od nich.
1. Vyberte několik nesousedících sloupců kliknutím na jejich dopis tlačítka a zachování Ctrl Nově vložené sloupce se zobrazí vlevo.
2. Stisknutím klávesové zkratky Ctrl + Shift + + (plus na hlavní klávesnici) zobrazíte několik hromadně vložených nových sloupců.
Přidání sloupce do seznamu naformátovaného jako tabulka aplikace Excel
Pokud je vaše tabulka naformátována jako Tabulka aplikace Excel můžete vybrat možnost Vložení sloupců tabulky doprava pokud je to poslední sloupec. Můžete také zvolit možnost Vložení sloupců tabulky vlevo pro libovolný sloupec v tabulce.
1. Chcete-li vložit sloupec, musíte vybrat potřebný sloupec a kliknout na něj pravým tlačítkem myši.
2. Pak si vyberte Vložit -> Sloupce tabulky doprava pro poslední sloupec nebo Sloupce tabulky vlevo .
Nový sloupec se bude ve výchozím nastavení jmenovat Sloupec1.
Speciální makro VBA pro vložení každého druhého sloupce
Mnoho uživatelů Excelu se snaží ušetřit co nejvíce času automatizací častých úloh v tabulkovém procesoru. Proto jsem nemohl tento příspěvek nechat bez makra. Pokud potřebujete přesunout sloupce od sebe, chopte se tohoto jednoduchého kusu kódu.
Sub InsertEveryOtherColumn() Dim colNo, colStart, colFinish, colStep As Long Dim rng2Insert As Range colStep = 2 colStart = Application.Selection.Cells(1, 1).Column + 1 colFinish = (ActiveSheet.UsedRange.SpecialCells( _ xlCellTypeLastCell).Column * 2) - colStart Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For colNo = colStart To colFinish Step colStepActiveSheet.Cells(1, colNo).EntireColumn.Insert Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End SubDoufám, že vám tyto tipy pomohou při práci s tabulkami. Pokud často pracujete s Excelem na úrovni řádků a sloupců, podívejte se na související příspěvky odkazované níže, které vám mohou některé úlohy zjednodušit. Vždy uvítám vaše komentáře a dotazy. Buďte spokojeni a excelujte v Excelu!
