Cum se introduce un număr specific de rânduri la intervale fixe în Excel?
În foaia de lucru Excel, puteți insera un rând gol între rândurile existente utilizând funcția Inserare. Dar, dacă aveți o gamă largă de date și trebuie să inserați două rânduri goale după fiecare al treilea rând, cum ați putea termina această lucrare rapid și convenabil?
- Introduceți un număr specific de rânduri goale în intervalul de date la intervale fixe cu codul VBA
- Introduceți un anumit număr de rânduri goale în intervalul de date pe baza valorilor celulei cu cod VBA
- Introduceți un anumit număr de rânduri goale în intervalul de date la intervale fixe, cu o caracteristică utilă
- Copiați și inserați rânduri de mai multe ori pe baza unor numere specifice cu cod VBA
- Copiați și inserați rânduri de mai multe ori pe baza unor numere specifice cu o caracteristică uimitoare
Introduceți un număr specific de rânduri goale în intervalul de date la intervale fixe cu codul VBA
Următorul cod VBA vă poate ajuta să inserați un număr specific de rânduri după fiecare al nouălea rând în datele existente. Vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: introduceți un anumit număr de rânduri în date la intervale fixe
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. După lipirea acestui cod, vă rugăm să apăsați F5 tasta pentru a rula acest cod, va apărea o casetă de solicitare pentru a vă reaminti să selectați intervalul de date pe care doriți să îl inserați rânduri goale, consultați captura de ecran:
4. Clic OK buton, va apărea o altă casetă de solicitare, vă rugăm să introduceți numărul de intervale de rând, a se vedea captura de ecran:
5. Continuați să faceți clic OK buton, în următoarea casetă de prompt pop-out, vă rugăm să introduceți numărul de rânduri goale pe care doriți să le inserați, vedeți captura de ecran:
6. Apoi apasa OK, iar rândurile goale au fost inserate în datele existente la intervale regulate, consultați capturi de ecran:
Introduceți un anumit număr de rânduri goale în intervalul de date pe baza valorilor celulei cu cod VBA
Uneori, poate fi necesar să introduceți rândurile goale pe baza unei liste de valori ale celulei, în acest caz, codul VBA de mai jos vă poate face o favoare, vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: introduceți un anumit număr de rânduri goale pe baza unei liste de numere:
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. După lipirea acestui cod, apăsați F5 tasta pentru a rula acest cod, în caseta de dialog pop-out, selectați lista numerelor pe care doriți să inserați rânduri goale pe baza, vedeți captura de ecran:
4. Apoi apasa OK, și veți obține rezultatele de care aveți nevoie după cum urmează:
Introduceți un anumit număr de rânduri goale în intervalul de date la intervale fixe, cu o caracteristică utilă
Dacă nu sunteți familiarizați cu codul VBA de mai sus, Kutools pentru Excel De asemenea, vă poate ajuta Introduceți rânduri și coloane goale caracteristica poate insera rapid și ușor un anumit număr de rânduri sau coloane în datele existente la intervale fixe.
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Selectați intervalul de date pe care doriți să îl inserați la intervale de rânduri goale.
2. Clic Kutools > Insera > Introduceți rânduri și coloane goale, vezi captura de ecran:
3. În Introduceți rândul și coloanele goale caseta de dialog, alegeți Rânduri goale opțiune din Tipul de inserare, apoi specificați numărul de intervale și rânduri goale pe care doriți să le utilizați după cum urmează:
4. Apoi apasa OK , iar rândurile goale au fost inserate în intervalul selectat la un anumit interval, după cum se arată în următoarea captură de ecran:
Descărcați și proba gratuită Kutools pentru Excel acum!
Copiați și inserați rânduri de mai multe ori pe baza unor numere specifice cu cod VBA
Să presupunem că aveți o gamă de tada și acum doriți să copiați fiecare rând și să le lipiți de mai multe ori pe rândul următor pe baza unei liste de numere, așa cum se arată în capturile de ecran de mai jos. Cum ar putea rezolva această sarcină în foaia de lucru Excel?
Pentru a face față acestui job, vă voi introduce un cod util, vă rugăm să parcurgeți pașii următori:
1. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: copiați și inserați rânduri de mai multe ori pe baza unor numere specifice:
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. După lipirea acestui cod, apăsați F5 tasta pentru a rula acest cod, în caseta de dialog pop-out, selectați lista numerelor pe care doriți să le copiați și introduceți rândurile de date pe baza, vedeți captura de ecran:
4. Apoi apasa OK și numărul specific de rânduri au fost copiate și lipite sub fiecare rând original, consultați capturi de ecran:
Copiați și inserați rânduri de mai multe ori pe baza unor numere specifice cu o caracteristică uimitoare
Dacă aveţi Kutools pentru Excel, Cu său Duplicați rânduri / coloane pe baza valorii celulei caracteristică, puteți insera rândurile sau coloanele pe baza listei de numere rapid și ușor.
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Clic Kutools > Insera > Duplicați rânduri / coloane pe baza valorii celulei, vezi captura de ecran:
2. În Copiați și inserați rânduri și coloane fereastră de dialog, selectați Copiați și inserați rânduri opțiune în Tip secțiune, apoi selectați intervalul de date pe care doriți să îl copiați, apoi specificați lista valorilor pe care doriți să copiați rândurile pe baza, vedeți captura de ecran:
4. Apoi apasa Ok or Aplică , veți obține următorul rezultat după cum aveți nevoie:
Descărcați și proba gratuită Kutools pentru Excel acum!
Mai multe articole relative:
- Copiați și inserați rândul de mai multe ori sau copiați rândul X Times
- În munca dvs. zilnică, ați încercat vreodată să copiați un rând sau fiecare rând și apoi să inserați de mai multe ori sub rândul de date curent într-o foaie de lucru? De exemplu, am o gamă de celule, acum vreau să copiez fiecare rând și să le lipesc de 3 ori pe rândul următor, după cum se arată în următoarea captură de ecran. Cum ați putea face față acestui job în Excel?
- Introduceți rânduri goale atunci când valoarea se schimbă în Excel
- Presupunând că aveți o gamă de date și acum doriți să inserați rânduri goale între date atunci când valoarea se schimbă, astfel încât să puteți separa aceleași valori secvențiale într-o singură coloană, după cum se arată în următoarele capturi de ecran. În acest articol, voi vorbi despre câteva trucuri pentru a rezolva această problemă.
- Introduceți un rând gol după text specific în Excel
- Dacă doriți să inserați rânduri goale după un anumit text, după cum se arată în următoarea captură de ecran, cum să faceți acest lucru rapid și ușor fără a le insera manual unul câte unul?
- Copiați rândurile din mai multe foi de lucru pe baza criteriilor într-o foaie nouă
- Să presupunem că aveți un registru de lucru cu trei foi de lucru care au aceeași formatare ca și imaginea de mai jos. Acum, doriți să copiați toate rândurile din aceste foi de lucru în care coloana C conține textul „Finalizat” într-o nouă foaie de lucru. Cum ați putea rezolva această problemă rapid și ușor fără a le copia și lipi manual unul câte unul?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!