Ga naar hoofdinhoud

Hoe een specifiek aantal kolommen met vaste intervallen in Excel in te voegen?

In uw dagelijkse gebruik van Excel kunt u in een situatie terechtkomen die u nodig heeft: voeg meer kolommen toe tussen de bestaande kolommen. U kunt de kolommen natuurlijk één voor één invoegen met de functie Invoegen. Maar wanneer u geconfronteerd wordt met veel gegevens en na elke tweede of nde kolom drie kolommen moet invoegen, is de functie Invoegen blijkbaar niet effectief. Dus hoe kunt u de taak snel voltooien? In deze tutorial zullen we het hebben over twee eenvoudige methoden om het probleem op te lossen.

Voeg op vaste intervallen een specifiek aantal lege kolommen in het gegevensbereik in met VBA-code

Voeg op vaste intervallen een specifiek aantal lege kolommen in het gegevensbereik in met een geweldige functie


Voeg op vaste intervallen een specifiek aantal lege kolommen in het gegevensbereik in met VBA-code

We kunnen het onderstaande gebruiken: VBA-code om een ​​specifiek aantal lege kolommen in te voegen na elke n-de kolom. Ga als volgt te werk.

1. druk de Alt + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module en plak de volgende macro in het Module Venster.

VBA-code: voeg met vaste tussenpozen een specifiek aantal kolommen in gegevens in

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. druk de F5 sleutel om deze code uit te voeren. Er verschijnt een promptvenster om u eraan te herinneren de data bereik waarin u lege kolommen wilt invoegen.
doc-kolommen-met-intervallen invoegen 1

4. Klik op het OK knop. Er verschijnt nog een promptvenster, voer alstublieft in het aantal kolommen intervallen in de Kolominterval invoeren doos.
doc-kolommen-met-intervallen invoegen 2

5. Blijf op de klikken OK knop. Het derde promptvenster verschijnt, specificeer a.u.b. het aantal kolommen dat u bij elk interval wilt invoegen in de doos.
doc-kolommen-met-intervallen invoegen 3

6. Klik op het OK knop om het resultaat te krijgen.
doc-kolommen-met-intervallen invoegen 4


Voeg op vaste intervallen een specifiek aantal lege kolommen in het gegevensbereik in met een geweldige functie

Als u de VBA-codemethode niet wilt gebruiken, de Voeg lege rijen en kolommen in kenmerk van Kutools for Excel is de perfecte oplossing voor u. Met deze functie kunt u met een paar klikken het specifieke aantal kolommen met vaste tussenpozen in het gegevensbereik invoegen.

Voor het aanvragen Kutools for Excel, download en installeer het eerst.

1. Selecteer eerst het bestaande gegevensbereik. Dan klikken Kutools > Invoegen > Voeg lege rijen en kolommen in.
doc-kolommen-met-intervallen invoegen 5

2. De Voeg lege rijen en kolommen in dialoogvenster verschijnt. U kunt het gegevensbereik dat u in stap 1 hebt geselecteerd, weergegeven in het vak Bereik zien. Kies de Lege kolommen optie in het Type invoegen sectie. en specificeer het aantal kolommen intervallen en kolommen die u bij elk interval wilt invoegen. Hier voer ik 1 en 3 apart in.
doc-kolommen-met-intervallen invoegen 6

3. Klik op het OK om de instelling te voltooien en het resultaat te krijgen.
doc-kolommen-met-intervallen invoegen 7

Note: Als u een gratis proefversie (30 dagen) van dit hulpprogramma wilt hebben, klikt u om het te downloaden en gaat u vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Andere bewerkingen (artikelen)

Hoe snel een regel invoegen op basis van de huidige datum in Excel?
Stel dat er een blad is met een rij met datums, en nu wil ik een regel invoegen tot aan de huidige datum die automatisch wordt gewijzigd terwijl de werkmap elke dag wordt geopend. Is er een truc die het in Excel kan oplossen?

Hoe voeg ik altijd een lege rij hieronder in plaats van hierboven in Excel in?
Zoals we allemaal weten, wordt bij het invoegen van een lege rij in een werkblad de lege rij altijd boven de geselecteerde rij of cel ingevoegd. Maar soms moet u de rij onder de geselecteerde cel of rij invoegen. Hoe zou je deze klus in Excel kunnen oplossen?

Hoe een lege nieuwe rij automatisch in te voegen met de opdrachtknop in Excel?
In veel gevallen moet u mogelijk een lege nieuwe rij invoegen op een opgegeven positie in uw werkblad. In dit artikel laten we u zien hoe u automatisch een lege nieuwe rij invoegt door op een opdrachtknop in Excel te klikken.

Hoe een lege rij invoegen na specifieke tekst in Excel?
Als u lege rijen na een specifieke tekst wilt invoegen zoals in de onderstaande schermafbeelding wordt getoond, hoe kunt u er dan snel en gemakkelijk mee omgaan zonder ze een voor een handmatig in te voegen?


  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations