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

Jak vložit konkrétní počet sloupců v pevných intervalech v aplikaci Excel?

Při každodenním používání Excelu se můžete dostat do situace, kterou potřebujete přidat další sloupce mezi stávající sloupce. Sloupce můžete samozřejmě vkládat jeden po druhém pomocí funkce Vložit. Ale když čelíte velkým datům a potřebujete vložit tři sloupce za každý druhý nebo n-tý sloupec, funkce Insert zjevně není účinná. Jak tedy můžete rychle dokončit úkol? V tomto tutoriálu budeme hovořit o dvou jednoduchých metodách, jak problém vyřešit.

Vložte určitý počet prázdných sloupců do datového rozsahu v pevných intervalech pomocí kódu VBA

Vkládejte určitý počet prázdných sloupců do datového rozsahu v pevných intervalech s úžasnou funkcí


Vložte určitý počet prázdných sloupců do datového rozsahu v pevných intervalech pomocí kódu VBA

Můžeme použít níže uvedené Kód VBA pro vložení určitého počtu prázdných sloupců za každý n-tý sloupec. Postupujte prosím následovně.

1. zmáčkni Alt + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul a vložte následující makro do Modul Okno.

Kód VBA: Vložte určitý počet sloupců do dat v pevných intervalech

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. zmáčkni F5 klíč ke spuštění tohoto kódu. Zobrazí se okno s výzvou, které vám připomene, abyste vybrali datový rozsah do kterého chcete vložit prázdné sloupce.
doc vložit-sloupce-v-intervalech 1

4. Klepněte na tlačítko OK knoflík. Objeví se další okno s výzvou, zadejte prosím počet intervalů sloupců v Zadejte interval sloupců box.
doc vložit-sloupce-v-intervalech 2

5. Pokračujte kliknutím na OK knoflík. Objeví se třetí pole výzvy, prosím specifikujte počet sloupců, které chcete vložit v každém intervalu v krabici.
doc vložit-sloupce-v-intervalech 3

6. Klepněte na tlačítko OK pro získání výsledku.
doc vložit-sloupce-v-intervalech 4


Vkládejte určitý počet prázdných sloupců do datového rozsahu v pevných intervalech s úžasnou funkcí

Pokud nechcete používat metodu kódu VBA, Vložte prázdné řádky a sloupce vlastnost Kutools pro Excel je pro vás ideálním řešením. Pomocí této funkce můžete vložit konkrétní počet sloupců do datového rozsahu v pevných intervalech pomocí několika kliknutí.

Před aplikací Kutools pro Excel, nejprve si jej stáhněte a nainstalujte.

1. Nejprve vyberte existující rozsah dat. Pak klikněte Kutools > Vložit > Vložte prázdné řádky a sloupce.
doc vložit-sloupce-v-intervalech 5

2. Vložte prázdné řádky a sloupce objeví se dialogové okno. Rozsah dat, který jste vybrali v kroku 1, můžete vidět v poli Rozsah. Vyber Prázdné sloupce možnost v Vložte typ sekce. A upřesněte počet intervalů sloupců a sloupce, které chcete vložit v každém intervalu. Zde zadávám 1 a 3 samostatně.
doc vložit-sloupce-v-intervalech 6

3. Klepněte na tlačítko OK dokončete nastavení a získáte výsledek.
doc vložit-sloupce-v-intervalech 7

Poznámka: Pokud chcete mít bezplatnou zkušební (30denní) verzi tohoto nástroje, kliknutím jej stáhněte a poté přejděte k použití operace podle výše uvedených kroků.


Další operace (články)

Jak rychle vložit řádek na základě aktuálního data v aplikaci Excel?
Předpokládejme, že existuje list obsahující řádek s daty, a teď chci vložit řádek přímo k aktuálnímu datu, který se bude automaticky měnit při otevírání sešitu každý den. Existuje trik, který to může vyřešit v aplikaci Excel?

Jak v Excelu vždy vložit prázdný řádek pod místo nahoře?
Jak všichni víme, při vkládání prázdného řádku do listu bude prázdný řádek vždy vložen nad vybraný řádek nebo buňku. Někdy však možná budete muset vložit řádek pod vybranou buňku nebo řádek. Jak byste mohli vyřešit tuto práci v aplikaci Excel?

Jak vložit prázdný nový řádek automaticky pomocí příkazového tlačítka v aplikaci Excel?
V mnoha případech možná budete muset vložit prázdný nový řádek do určené polohy listu. V tomto článku vám ukážeme, jak automaticky vložit prázdný nový řádek kliknutím na příkazové tlačítko v aplikaci Excel.

Jak vložit prázdný řádek za určitý text v aplikaci Excel?
Pokud chcete vložit prázdné řádky po konkrétním textu, jak ukazuje následující snímek obrazovky, jak s ním zacházet rychle a snadno, aniž byste je vkládali ručně jeden po druhém?


  • 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 a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... 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ší ...
  • Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • 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...
  • Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...
karta kte 201905
  • 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!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL