Hogyan lehet meghatározott számú oszlopot beszúrni fix időközönként az Excelbe?

Az Excel napi használata során olyan helyzetbe kerülhet, amelyre szüksége van adjon hozzá további oszlopokat a meglévő oszlopok közé. Természetesen a Beszúrás funkcióval egyenként is beszúrhatjuk az oszlopokat. De ha nagy adattal áll szemben, és minden második vagy n-edik oszlop után három oszlopot kell beszúrnia, a Beszúrás funkció láthatóan nem hatékony. Szóval hogyan lehet gyorsan befejezni a feladatot? Ebben az oktatóanyagban a probléma megoldásának két egyszerű módszeréről fogunk beszélni.

Adott számú üres oszlop beszúrása az adattartományba rögzített időközönként VBA-kóddal

Adott számú üres oszlop beszúrása az adattartományba rögzített időközönként egy csodálatos funkcióval

Használhatjuk az alábbiakat VBA kód adott számú üres oszlop beszúrásához minden n-edik oszlop után. Kérjük, tegye a következőket.

1. megnyomni a Alt + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok és illessze be a következő makrót a Modulok Ablak.

VBA-kód: Adott számú oszlop beszúrása az adatokba rögzített időközönként

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. megnyomni a F5 kulcs a kód futtatásához. Megjelenik egy prompt ablak, amely emlékezteti Önt, hogy válassza ki a adattartomány amelybe üres oszlopokat szeretne beszúrni.

4. Kattintson a OK gomb. Egy másik prompt mező jelenik meg, kérjük, írja be az oszlopok száma intervallumok a Adja meg az oszlopintervallumot doboz.

5. Továbbra is kattintson a gombra OK gomb. A harmadik prompt doboz kiugrik, kérjük, adja meg az egyes intervallumokban beszúrni kívánt oszlopok száma A dobozban.

6. Kattintson a OK gomb az eredmény eléréséhez.

Ha nem szeretné használni a VBA kódmódszert, a Üres sorok és oszlopok beszúrása jellemzője Kutools az Excel számára a tökéletes megoldás az Ön számára. Ezzel a funkcióval néhány kattintással beszúrhatja a megadott számú oszlopot az adattartományba fix időközönként.

Alkalmazás előtt Kutools az Excel számára, először töltse le és telepítse.

1. Először válassza ki a meglévő adattartományt. Ezután kattintson Kutools > betétlap > Üres sorok és oszlopok beszúrása.

2. A Üres sorok és oszlopok beszúrása párbeszédpanel jelenik meg. Az 1. lépésben kiválasztott adattartományt a Tartomány mezőben láthatja. Válaszd a Üres oszlopok lehetőség a Betét tipus szakasz. És adja meg az oszlopok intervallumainak száma és a az egyes intervallumokban beszúrni kívánt oszlopokat. Itt külön beírom az 1-et és a 3-at.

3. Kattintson a OK gombot a beállítás befejezéséhez és az eredmény eléréséhez.

Megjegyzések: Ha szeretné a segédprogram ingyenes (30 napos) próbaverzióját, kattintson a letöltéshez, majd lépjen a művelet végrehajtásához a fenti lépések szerint.

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80%-kal növeli a termelékenységet

• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...

Tovább ... Teljes funkciók 30 napos ingyenes próba ... Vásárlás... 

---

Office Tab – füles felületet hoz az Office-ba, és jelentősen megkönnyíti munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Teljes funkciók 30 napos ingyenes próba ... Vásárlás...