Note: The other languages of the website are Google-translated. Back to English

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


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

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.
doc insert-columns-at-intervals 1

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.
doc insert-columns-at-intervals 2

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.
doc insert-columns-at-intervals 3

6. Kattintson a OK gomb az eredmény eléréséhez.
doc insert-columns-at-intervals 4


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

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.
doc insert-columns-at-intervals 5

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 Beszúrás típusa 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.
doc insert-columns-at-intervals 6

3. Kattintson a OK gombot a beállítás befejezéséhez és az eredmény eléréséhez.
doc insert-columns-at-intervals 7

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.


Egyéb műveletek (cikkek)

Hogyan lehet gyorsan beszúrni egy sort az aktuális dátum alapján az Excelben?
Tegyük fel, hogy van egy lap, amely tartalmaz egy sort dátumokkal, és most be akarok illeszteni egy sort az aktuális dátumhoz, amely automatikusan megváltozik, miközben minden nap megnyitja a munkafüzetet. Van egy trükk, amely megoldhatja az Excel-ben?

Hogyan lehet mindig üres sort beszúrni alá az Excelben a fenti helyett?
Mint mindannyian tudjuk, amikor üres sort illeszt be egy munkalapba, az üres sort mindig a kiválasztott sor vagy cella fölé helyezzük. De néha előfordulhat, hogy be kell illesztenie a sort a kijelölt cella vagy sor alá. Hogyan oldhatná meg ezt a munkát az Excel programban?

Hogyan lehet automatikusan beszúrni egy üres új sort a parancsgombbal az Excelben?
Sok esetben előfordulhat, hogy egy üres új sort kell beszúrnia a munkalap meghatározott pozíciójába. Ebben a cikkben megmutatjuk, hogyan lehet automatikusan beilleszteni egy üres új sort az Excel Parancsgombjára kattintva.

Hogyan szúrjunk be egy üres sort meghatározott szöveg után az Excelben?
Ha üres sorokat szeretne beilleszteni egy adott szöveg után, az alábbi képernyőképen, hogyan kezelje azt gyorsan és egyszerűen anélkül, hogy kézzel egyesével illesztené be őket?


  • 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...
kte lap 201905
  • 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi