Hogyan illeszthet be meghatározott számú sort rögzített időközönként az Excelbe?
Az Excel munkalapon egy üres sort szúrhat be a meglévő sorok közé a Beszúrás funkció használatával. De ha nagy az adattartománya, és minden harmadik második sor után két üres sort kell beillesztenie, hogyan tudná ezt a munkát gyorsan és kényelmesen befejezni?
- Helyezzen be meghatározott számú üres sort az adattartományba, rögzített időközönként, VBA kóddal
- Helyezzen be egy bizonyos számú üres sort az adattartományba a VBA kóddal ellátott cellaértékek alapján
- Helyezzen be meghatározott számú üres sort az adattartományba, rögzített időközönként, hasznos funkcióval
- Sorok másolása és beszúrása többször, VBA kóddal ellátott számok alapján
- Másoljon és szúrjon be sorokat többször, konkrét számok alapján, csodálatos funkcióval
Helyezzen be meghatározott számú üres sort az adattartományba, rögzített időközönként, VBA kóddal
A következő VBA-kód segíthet egy adott számú sor beszúrásában a meglévő adatok minden n-edik sora után. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Helyezzen be meghatározott számú sort az adatokba, rögzített időközönként
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount 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)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy felszólító mező, amely emlékezteti Önt arra az adattartomány kiválasztására, amelyre üres sorokat szeretne beilleszteni, lásd a képernyőképet:
4. Kattints OK gombra, megjelenik egy újabb prompt doboz, kérjük, adja meg a sorközök számát, lásd a képernyőképet:
5. Kattintson a gombra OK gombra, a következő felbukkanó prompt mezőbe írja be a beilleszteni kívánt üres sorok számát, lásd a képernyőképet:
6. Ezután kattintson OK, és az üres sorokat rendszeres időközönként illesztették be a meglévő adatokba, lásd a képernyőképeket:
 |
 |
 |
Helyezzen be egy bizonyos számú üres sort az adattartományba a VBA kóddal ellátott cellaértékek alapján
Előfordulhat, hogy a cellák értékeinek listája alapján be kell illesztenie az üres sorokat, ebben az esetben az alábbi VBA-kód kedvezhet nekünk, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Helyezzen be egy bizonyos számú üres sort a számok listája alapján:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki a számok listáját, amelyek alapján üres sorokat szeretne beszúrni, lásd a képernyőképet:
4. Ezután kattints a gombra OK, és megkapja a kívánt eredményeket a következő képernyőképek segítségével:
 |
|
 |
Helyezzen be meghatározott számú üres sort az adattartományba, rögzített időközönként, hasznos funkcióval
Ha nem ismeri a fenti VBA kódot, Kutools az Excel számára is segíthet, annak Üres sorok és oszlopok beszúrása funkció segítségével meghatározott számú sort vagy oszlopot lehet beilleszteni a meglévő adatokba, rögzített időközönként, gyorsan és egyszerűen.
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Válassza ki azt az adattartományt, amelybe időközönként üres sorokat szeretne beilleszteni.
2. Kattints Kutools > betétlap > Üres sorok és oszlopok beszúrása, lásd a képernyőképet:
3. Az Helyezze be az üres sort és oszlopokat párbeszédpanelen válassza a lehetőséget Üres sorok opció a Betét tipus, majd adja meg a használni kívánt intervallum és üres sorok számát a következő képernyőképen:
4. Ezután kattintson OK gombra, és az üres sorokat meghatározott időközönként illesztette be a kiválasztott tartományba, az alábbi képernyőkép szerint:
|
|
|
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Sorok másolása és beszúrása többször, VBA kóddal ellátott számok alapján
Tegyük fel, hogy van akkori tartománya, és most minden sort meg akar másolni, és többször beilleszteni a következő sorba a számok listája alapján, az alábbi képernyőképek alapján. Hogyan oldhatná meg ezt a feladatot az Excel munkalapon?
 |
|
 |
Ennek a munkának a kezeléséhez bevezetek egy hasznos kódot az Ön számára, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA-kód: Sorok másolása és beszúrása többször is meghatározott számok alapján:
Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki a másolni kívánt számok listáját, és helyezze be az adatsorokat, lásd a képernyőképet:
4. Ezután kattints a gombra OK gombra, és a sorok számát másolja és illessze be az egyes eredeti sorok alá, lásd a képernyőképeket:
|
|
|
Másoljon és szúrjon be sorokat többször, konkrét számok alapján, csodálatos funkcióval
Ha van Kutools az Excel számára, Annak Sorok / oszlopok duplikálása a cellaérték alapján funkcióval gyorsan és egyszerűen beillesztheti a sorokat vagy oszlopokat a számlista alapján.
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Kattints Kutools > betétlap > Sorok / oszlopok duplikálása a cellaérték alapján, lásd a képernyőképet:
2. Az Sorok és oszlopok másolása és beszúrása párbeszédpanelen válassza ki Sorok másolása és beszúrása lehetőség a típus szakasz, majd válassza ki a másolni kívánt adattartományt, majd adja meg az értékek listáját, amelyek alapján sorokat szeretne másolni, lásd a képernyőképet:
4. Ezután kattints a gombra Ok or alkalmaz gombra kattintva a következő eredményt kapja:
|
|
|
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Relatívabb cikkek:
- Másolja és illessze be a sort többször, vagy másolja le az X sort
- A mindennapi munkája során megpróbált már másolni egy sort vagy minden sort, majd többször beilleszteni az aktuális adatsor alá egy munkalapba? Például van egy cellatartományom, most szeretnék minden sort másolni, és háromszor beilleszteni a következő sorba, az alábbi képernyőkép szerint. Hogyan tudta kezelni ezt a munkát az Excelben?
- Üres sorok beszúrása, ha az érték megváltozik az Excelben
- Tegyük fel, hogy van egy adattartománya, és most üres sorokat szeretne beilleszteni az adatok közé, amikor az érték megváltozik, hogy a szekvenciális ugyanazokat az értékeket egy oszlopban különíthesse el, a következő képernyőképek szerint. Ebben a cikkben néhány trükkről fogok beszélni, amelyek segítségével megoldhatja ezt a problémát.
- Helyezzen be egy üres sort meghatározott szöveg után az Excelbe
- 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?
- Sorok másolása több munkalapról a kritériumok alapján egy új munkalapba
- Tegyük fel, hogy van egy munkafüzete, amely három munkalapot tartalmaz, amelyek formázása megegyezik az alábbi képernyőképen látható ábrával. Most át akarja másolni ezekből a munkalapokból az összes sort, amely C oszlop tartalmazza a „Befejezett” szöveget egy új munkalapba. Hogyan oldhatná meg ezt a problémát gyorsan és egyszerűen anélkül, hogy manuálisan másolná és beillesztené őket?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a 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!
