Hoppa till huvudinnehåll

Hur infogar man specifikt antal kolumner med fasta intervall i Excel?

I din dagliga användning av Excel kan du hamna i en situation som du behöver lägg till fler kolumner mellan de befintliga kolumnerna. Du kan naturligtvis infoga kolumnerna en efter en med hjälp av Infoga-funktionen. Men när du står inför en stor data och behöver infoga tre kolumner efter varannan eller n:e kolumn, är funktionen Infoga uppenbarligen inte effektiv. Så hur kan du snabbt slutföra uppgiften? I den här handledningen kommer vi att prata om två enkla metoder för att lösa problemet.

Infoga ett specifikt antal tomma kolumner i dataintervallet med fasta intervall med VBA-kod

Infoga ett specifikt antal tomma kolumner i dataområdet med fasta intervall med en fantastisk funktion


Infoga ett specifikt antal tomma kolumner i dataintervallet med fasta intervall med VBA-kod

Vi kan använda nedanstående VBA-kod för att infoga ett specifikt antal tomma kolumner efter var n:e kolumn. Vänligen gör enligt följande.

1. tryck på Alt + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna och klistra in följande makro i Modulerna Fönster.

VBA-kod: Infoga specifikt antal kolumner i data med fasta intervall

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. tryck på F5 nyckel för att köra den här koden. En uppmaningsruta dyker upp för att påminna dig om att välja dataområde där du vill infoga tomma kolumner.
doc infoga-kolumner-vid-intervall 1

4. Klicka på OK knapp. Ytterligare en uppmaningsruta dyker upp, vänligen ange antalet kolumner intervall i Ange kolumnintervall låda.
doc infoga-kolumner-vid-intervall 2

5. Fortsätt att klicka på OK knapp. Den tredje uppmaningsrutan dyker upp, vänligen specificera antalet kolumner du vill infoga vid varje intervall i lådan.
doc infoga-kolumner-vid-intervall 3

6. Klicka på OK knappen för att få resultatet.
doc infoga-kolumner-vid-intervall 4


Infoga ett specifikt antal tomma kolumner i dataområdet med fasta intervall med en fantastisk funktion

Om du inte vill använda VBA-kodmetoden, Infoga tomma rader och kolumner egenskap av Kutools för Excel är den perfekta lösningen för dig. Med den här funktionen kan du infoga det specifika antalet kolumner i dataområdet med fasta intervall med bara några klick.

Innan du ansöker Kutools för Excel, ladda ner och installera den först.

1. Välj det befintliga dataintervallet först. Klicka sedan Kutools > Insert > Infoga tomma rader och kolumner.
doc infoga-kolumner-vid-intervall 5

2. Den Infoga tomma rader och kolumner dialogrutan dyker upp. Du kan se dataintervallet du valde i steg 1 i rutan Område. Välj den Tomma kolumner alternativet i Infoga typ sektion. Och specificera antalet kolumnerintervall och kolumner du vill infoga vid varje intervall. Här matar jag in 1 och 3 separat.
doc infoga-kolumner-vid-intervall 6

3. Klicka på OK knappen för att avsluta inställningen och få resultatet.
doc infoga-kolumner-vid-intervall 7

Anmärkningar: Om du vill ha en gratis testversion (30 dagar) av det här verktyget, klicka för att ladda ner det och gå sedan till tillämpa åtgärden enligt ovanstående steg.


Annan verksamhet (artiklar)

Hur infogar man snabbt en rad baserat på aktuellt datum i Excel?
Antag att det finns ett ark som innehåller en rad med datum, och nu vill jag infoga en rad direkt till det aktuella datumet som automatiskt ändras när arbetsboken öppnas varje dag. Finns det ett trick som kan lösa det i Excel?

Hur infogar man alltid en tom rad nedan istället för ovan i Excel?
Som vi alla känner till kommer den tomma raden alltid att infogas över den valda raden eller cellen när du sätter in tom rad i ett kalkylblad. Men ibland kan du behöva infoga raden under den valda cellen eller raden. Hur kunde du lösa detta jobb i Excel?

Hur infogar man en tom ny rad automatiskt med kommandoknappen i Excel?
I många fall kan du behöva infoga en tom ny rad i en angiven position i kalkylbladet. I den här artikeln visar vi dig hur du infogar en tom ny rad automatiskt genom att klicka på en kommandoknapp i Excel.

Hur infogar man en tom rad efter specifik text i Excel?
Om du vill infoga tomma rader efter en specifik text som följande skärmdump visas, hur hanterar du det snabbt och enkelt utan att infoga dem manuellt en efter en?


  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
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