Gå til hovedindhold

Hvordan vælger du hver nende kolonne i Excel?

For eksempel har du et stort regneark med hundredvis af kolonner med data. Og nu skal du kopiere hver 3. kolonnedata og indsætte dem i et andet nyt regneark. Det vil være tidskrævende at vælge hver nende kolonne en efter en, og er der nogen nem måde at gøre det på?

Vælg hver niende kolonne med VBA

Vælg hver nende kolonne med Kutools til Excel


pil blå højre boble Vælg hver niende kolonne med VBA

Det ser ud til at være en simpel måde undtagen VBA-kode at løse dette problem. Gør som følger:

1. Fremhæv det interval, som du vil vælge hver nende kolonne.

2.Click Udvikler > Visual Basic eller tryk på Alt + F11, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Moduler for at indtaste følgende kode i modulet:

 

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 derefter på  -knappen for at køre koden, og der vises et promptfelt for at minde dig om at vælge et interval at arbejde med. Se skærmbillede:

 

4. klik OK, og indtast derefter antallet af intervaller i den anden pop op-dialogboks. I dette tilfælde skal du indtaste 3 i feltet. Se skærmbillede:

5. klik OK. Nu vælger den hver 3. kolonne i markeringen. Se skærmbillede:

Bemærk: Du kan angive nummeret i det andet KutoolsforExcel dialog for at imødekomme dit behov.

Men nogle gange skal du vælge to kolonner med to intervaller. Ovenstående kode kan ikke fungere, hvordan skal du gøre?


Vælg hver nende kolonne med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Hent den nu.

Med Kutools til Excel, kan du vælge specifikt antal kolonner med bestemte intervaller. Gør som følger:

1.Click Kutools > Vælg Værktøjer > Vælg Intervalrækker / -kolonner, se skærmbillede:

2. Den Vælg Intervalrækker / -kolonner dialogboks vises. Klik derefter på for at vælge det ønskede område, vælg Kolonner fra Vælg sektion, og angiv det ønskede nummer i Interval af , Kolonner rulleliste, her vælger vi to kolonner i hver 3td-kolonne. Se skærmbillede:

3.Click OK. Det vælger to kolonner med to intervaller i markeringen. Se skærmbillede:

Bemærk: Hvis du tjekker Vælg hele kolonner i popup-dialogboksen vælger den hele kolonnerne i arket. Se skærmbillede:


Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have one issue in excel, for example, in a row first five sells are numbered as 1,2,3, 4,5. in the second row also numbered as 1,2,3,4,5 in each sell. then to the third row need to paste the values of above two rows alternatively. means i need answer in each sells in third row 1,1,2,2,3,3,4,4,5,5. how can I do easily in excel? I am waiting for your response because I need to complete big datasheet.
This comment was minimized by the moderator on the site
i need to copy from f18 to h19, then f21 to h22, and it goes on till 500 values and before the value in h column need to add text also

like f18 = 345

in h19 I should get = tdg 345

for 500 values in h column.

please help me someone
This comment was minimized by the moderator on the site
This macro sucks dont waste your time
This comment was minimized by the moderator on the site
For some reason this does not work if only one row is selected.
This comment was minimized by the moderator on the site
Excel 2010 - Select interval column command does not work. There is no any raction after clicking - ok
This comment was minimized by the moderator on the site
I always get an error: invalid procedure... How can I solve it. I want to select every 4th column in my dataset
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations