KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe selecteert u elke n-de kolom in Excel?

AuteurXiaoyang Wijzigingsdatum

Stel dat u een groot werkblad hebt met honderden kolommen vol gegevens, en u moet de gegevens uit elke 3e kolom kopiëren naar een nieuw werkblad. Is er een eenvoudige manier om dit te doen, zonder elke n-de kolom handmatig één voor één te selecteren?

Selecteer elke n-de kolom met VBA

Selecteer elke n-de kolom met Kutools voor Excel

Selecteer elke n-de kolom met VBA

Er lijkt geen eenvoudige oplossing te zijn, behalve het gebruik van VBA-code. Volg deze stappen:

1. Markeer het bereik waaruit u elke n-de kolom wilt selecteren.

2. Klik op Ontwikkelaar > Visual Basic of druk op Alt+F11. Vervolgens wordt een nieuw Microsoft Visual Basic for Applications-venster weergegeven. Klik op Invoegen > Module om de volgende code in de module in te voeren:

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = „KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox(„Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox(„Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. Klik vervolgens op de een schermafbeelding van het selecteren van elke n-de kolom met de VBA-uitvoerknop knop om de code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd een bereik te selecteren om mee te werken. Zie screenshot:

een schermafbeelding van het selecteren van elke n-de kolom met het geselecteerde VBA-dialoogvenster

4. Klik op OK en voer daarna het aantal intervallen in het andere dialoogvenster in. Voer in dit geval 3 in het vak in. Zie screenshot:

een schermafbeelding van het selecteren van elke n-de kolom met VBA, getalinterval invoeren

5. Klik op OK. Nu wordt elke derde kolom in de selectie geselecteerd. Zie screenshot:

een schermafbeelding van het selecteren van elke n-de kolom met VBA-resultaat

Opmerking: U kunt het getal in het tweede Kutools for Excel-dialoogvenster aanpassen aan uw behoeften.

Maar wat moet u doen als u twee kolommen met elk twee afzonderlijke intervallen moet selecteren, aangezien de bovenstaande code daar niet voor werkt?

Selecteer elke n-de kolom met Kutools voor Excel

Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis te proberen zonder beperking gedurende 30 dagen.Download het nu.

Met Kutools voor Excel kunt u een specifiek aantal kolommen selecteren met vaste intervallen. Volg deze eenvoudige stappen:

1. Klik op Kutools > Selecteren > Selecteer Intervalrijen/Kolommen.

2. Er verschijnt een Selecteer Intervalrijen/Kolommen-dialoogvenster. Klik vervolgens op de een schermafbeelding van het selecteren van elke n-de kolom met VBA Kutools for Excel selectieknop-knop om het gewenste bereik te selecteren, kies Kolommen in het gedeelte Selecteren en geef het gewenste getal op bij Interval van en Kolommen in de keuzelijst. Hier selecteren we twee kolommen in elke derde kolom. Zie screenshot:

een schermafbeelding van het selecteren van elke n-de kolom met Kutools for Excel dialoogvenster

3. Klik op OK. Vervolgens worden in de selectie twee kolommen met elk twee intervallen geselecteerd. Zie screenshot:

een schermafbeelding van het selecteren van elke n-de kolom met Kutools for Excel resultaat

Opmerking: Als u Selecteer Gehele Kolom aanvinkt in het pop-updialoogvenster, worden de volledige kolommen in het werkblad geselecteerd. Zie screenshot:

een schermafbeelding van het selecteren van elke n-de kolom met Kutools for Excel resultaat 2

Gerelateerde artikelen:

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins