Kako v Excel vstaviti določeno število vrstic v določenih intervalih?
V Excelov delovni list lahko s pomočjo funkcije Vstavi vstavi prazno vrstico med obstoječe vrstice. Če pa imate velik obseg podatkov in morate za vsako tretjo vrstico vstaviti dve prazni vrstici, kako lahko to delo končate hitro in priročno?
- V podatkovno območje v določenih intervalih s kodo VBA vstavite določeno število praznih vrstic
- V podatkovno območje vstavite določeno število praznih vrstic na podlagi vrednosti celic s kodo VBA
- V priročno območje vstavite določeno število praznih vrstic v obseg podatkov s priročno funkcijo
- Kopirajte in vstavite vrstice večkrat na podlagi določenih številk s kodo VBA
- Kopirajte in vstavite vrstice večkrat na podlagi določenih številk z neverjetno funkcijo
V podatkovno območje v določenih intervalih s kodo VBA vstavite določeno število praznih vrstic
Naslednja koda VBA vam lahko pomaga vstaviti določeno število vrstic po vsaki n-ti vrstici znotraj obstoječih podatkov. Naredite naslednje:
1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: V podatke v določenih intervalih vstavite določeno število vrstic
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. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, se bo pojavilo pozivno polje, ki vas bo opozorilo na izbiro obsega podatkov, v katerega želite vstaviti prazne vrstice, glejte posnetek zaslona:
4. Kliknite OK gumb, se bo pojavilo drugo pozivno polje, vnesite število intervalov vrstic, glejte posnetek zaslona:
5. Pojdi na klik OK gumb, v naslednje izpustno polje za vnos vnesite število praznih vrstic, ki jih želite vstaviti, glejte posnetek zaslona:
6. Nato kliknite OK, in prazne vrstice so bile redno vstavljene v obstoječe podatke, glejte posnetke zaslona:
V podatkovno območje vstavite določeno število praznih vrstic na podlagi vrednosti celic s kodo VBA
Včasih boste morda morali vstaviti prazne vrstice na podlagi seznama vrednosti celic, v tem primeru vam lahko spodnja koda VBA naredi uslugo, storite tako:
1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Vnesite določeno število praznih vrstic na podlagi seznama številk:
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. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite seznam številk, na podlagi katerih želite vstaviti prazne vrstice, glejte posnetek zaslona:
4. Nato kliknite OK, in dobili boste potrebne rezultate, kot je prikazano na naslednjih posnetkih zaslona:
V priročno območje vstavite določeno število praznih vrstic v obseg podatkov s priročno funkcijo
Če niste seznanjeni z zgornjo kodo VBA, Kutools za Excel lahko vam tudi pomaga, njegovo Vstavite prazne vrstice in stolpce Funkcija lahko v določene intervale hitro in enostavno vstavi določeno število vrstic ali stolpcev v obstoječe podatke.
Po namestitvi Kutools za Excel, naredite naslednje:
1. Izberite obseg podatkov, v katerega želite vstaviti prazne vrstice v presledkih.
2. Kliknite Kutools > Vstavi > Vstavite prazne vrstice in stolpce, glej posnetek zaslona:
3. v Vstavi prazne vrstice in stolpce izberite pogovorno okno Prazne vrstice možnost iz Vstavi vrstoin nato določite število intervalnih in praznih vrstic, ki jih želite uporabiti, kot je prikazano na sliki spodaj:
4. Nato kliknite OK in prazne vrstice so bile v določen interval vstavljene v izbrani obseg, kot je prikazano na sliki spodaj:
Prenesite in brezplačno preizkusite Kutools za Excel zdaj!
Kopirajte in vstavite vrstice večkrat na podlagi določenih številk s kodo VBA
Recimo, da imate obseg tada, zdaj pa želite kopirati vsako vrstico in jih večkrat prilepiti v naslednjo vrstico na podlagi seznama številk, kot je prikazano spodaj. Kako lahko rešim to nalogo v Excelovem delovnem listu?
Za reševanje tega dela vam bom predstavil koristno kodo, naredite naslednje:
1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Kopirajte in vstavite vrstice večkrat glede na določene številke:
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. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite seznam številk, ki jih želite kopirati, in vstavite podatkovne vrstice na podlagi, glejte posnetek zaslona:
4. Nato kliknite OK in določeno število vrstic je bilo kopirano in prilepljeno pod vsako izvirno vrstico, glejte posnetke zaslona:
Kopirajte in vstavite vrstice večkrat na podlagi določenih številk z neverjetno funkcijo
Če imate Kutools za Excel, Z njegovim Podvojene vrstice / stolpci na podlagi vrednosti celice vrstico ali stolpce lahko hitro in enostavno vstavite glede na seznam številk.
Po namestitvi Kutools za Excel, naredite naslednje:
1. Kliknite Kutools > Vstavi > Podvojene vrstice / stolpci na podlagi vrednosti celice, glej posnetek zaslona:
2. v Kopirajte in vstavite vrstice in stolpce pogovorno okno, izberite Kopirajte in vstavite vrstice možnost v tip , nato izberite obseg podatkov, ki ga želite podvojiti, in nato navedite seznam vrednosti, na podlagi katerih želite kopirati vrstice, glejte posnetek zaslona:
4. Nato kliknite Ok or Uporabi gumb, boste dobili naslednji rezultat, kot ga potrebujete:
Prenesite in brezplačno preizkusite Kutools za Excel zdaj!
Več relativnih člankov:
- Kopirajte in vstavite vrstico večkrat ali podvojite vrstico X Times
- Ali ste pri svojem vsakodnevnem delu že poskusili kopirati vrstico ali vsako vrstico in nato na delovni list večkrat vstaviti pod trenutno vrstico s podatki? Na primer, imam vrsto celic, zdaj želim kopirati vsako vrstico in jih 3-krat prilepiti v naslednjo vrstico, kot je prikazano na spodnji sliki zaslona. Kako bi se lahko spopadli s tem delom v Excelu?
- Vstavite prazne vrstice, ko se vrednost v Excelu spremeni
- Recimo, da imate obseg podatkov in zdaj želite med podatke vstaviti prazne vrstice, ko se vrednost spremeni, tako da lahko zaporedoma enake vrednosti ločite v enem stolpcu, kot kažejo naslednji prikazani posnetki zaslona. V tem članku bom spregovoril o nekaj trikih, s katerimi boste rešili to težavo.
- Vstavite prazno vrstico za določenim besedilom v Excelu
- Če želite vstaviti prazne vrstice za določenim besedilom, kot je prikazano na spodnjem posnetku zaslona, kako hitro in enostavno ravnati z njimi, ne da bi jih vstavljali ročno enega za drugim?
- Kopirajte vrstice iz več delovnih listov na podlagi meril v nov list
- Recimo, da imate delovni zvezek s tremi delovnimi listi, ki imajo enako obliko kot spodnja slika zaslona. Zdaj želite kopirati vse vrstice s teh delovnih listov, stolpec C vsebuje besedilo »Dokončano«, v nov delovni list. Kako lahko to težavo rešite hitro in enostavno, ne da bi jih ročno kopirali in prilepili?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše 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!