Kako v Excel vstaviti določeno število stolpcev v fiksnih intervalih?

Pri vsakodnevni uporabi Excela lahko naletite na situacijo, ki jo morate dodajte več stolpcev med obstoječe stolpce. Seveda lahko stolpce vstavljate enega za drugim s funkcijo Vstavi. Ko pa se soočate z velikimi podatki in morate za vsak drugi ali n-ti stolpec vstaviti tri stolpce, funkcija Vstavi očitno ni učinkovita. Kako lahko torej hitro dokončate nalogo? V tej vadnici bomo govorili o dveh preprostih metodah za rešitev težave.

Vstavite določeno število praznih stolpcev v obseg podatkov v določenih intervalih s kodo VBA

Vstavite določeno število praznih stolpcev v obseg podatkov v določenih intervalih z neverjetno funkcijo

Uporabimo lahko spodnje Koda VBA da vstavite določeno število praznih stolpcev za vsak n-ti stolpec. Prosimo, naredite naslednje.

1. Pritisnite Alt + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli in v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: Vstavite določeno število stolpcev v podatke v določenih intervalih

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. Pritisnite F5 ključ za zagon te kode. Odpre se okno s pozivom, ki vas opomni, da izberete obseg podatkov v katerega želite vstaviti prazne stolpce.

4. Kliknite OK gumb. Odpre se še eno okno s pozivom, vnesite število intervalov stolpcev v Vnesite interval stolpca škatla.

5. Nadaljujte s klikom na OK gumb. Odpre se tretje okno s pozivom, navedite število stolpcev, ki jih želite vstaviti v vsakem intervalu v škatli.

6. Kliknite OK gumb, da dobite rezultat.

Če ne želite uporabiti metode kode VBA, Vstavite prazne vrstice in stolpce značilnost Kutools za Excel je popolna rešitev za vas. S to funkcijo lahko vstavite določeno število stolpcev v obseg podatkov v določenih intervalih v le nekaj klikih.

Pred vložitvijo vloge Kutools za Excel, najprej prenesite in namestite.

1. Najprej izberite obstoječi obseg podatkov. Nato kliknite Kutools > Vstavi > Vstavite prazne vrstice in stolpce.

2. Vstavite prazne vrstice in stolpce se prikaže pogovorno okno. Obseg podatkov, ki ste ga izbrali v 1. koraku, lahko vidite prikazan v polju Obseg. Izberite Prazni stolpci možnost v Vstavi vrsto razdelek. In navedite število intervalov stolpcev in stolpcev, ki jih želite vstaviti v vsakem intervalu. Tukaj vnesem 1 in 3 ločeno.

3. Kliknite OK gumb za dokončanje nastavitve in pridobitev rezultata.

Opombe: Če želite imeti brezplačno preskusno različico (30-dnevno) tega pripomočka, kliknite, da ga prenesete, in nato uporabite operacijo v skladu z zgornjimi koraki.

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...

Preberite več ... Popolne funkcije 30-dnevnega brezplačnega preskusa ... Nakup ... 

---

Zavihek Office - v Office vnese vmesnik z zavihki in vam olajša delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Popolne funkcije 30-dnevnega brezplačnega preskusa ... Nakup ...