Cum se duplică rândurile pe baza valorii celulei dintr-o coloană?
De exemplu, am o gamă de date care conține o listă de numere din coloana D și acum, doresc să duplic toate rândurile de mai multe ori pe baza valorilor numerice din coloana D pentru a obține următorul rezultat. Cum aș putea copia rândurile de mai multe ori pe baza valorilor celulei din Excel?
Duplicați rânduri de mai multe ori pe baza valorilor celulei cu cod VBA
Duplicați rânduri de mai multe ori pe baza valorilor celulei cu cod VBA
Pentru a copia și duplica rândurile întregi de mai multe ori pe baza valorilor celulei, următorul cod VBA vă poate ajuta, vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Duplicați rânduri de mai multe ori pe baza valorii celulei:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Apoi apăsați F5 cheie pentru a rula acest cod, întregul rând a fost duplicat de mai multe ori pe baza valorii celulei din coloana D după cum aveți nevoie.
Copiați și inserați rânduri pe baza unui anumit număr de ori cu un instrument la îndemână - Kutools pentru Excel
Dacă nu sunteți familiarizat cu codul VBA și nu puteți modifica corect parametrii din cod de unul singur. În acest caz, Kutools pentru Excel's Duplicați rânduri / coloane în funcție de valoarea celulei caracteristica vă poate ajuta să copiați și să inserați rânduri de mai multe ori pe baza valorilor celulelor cu doar trei clicuri.
- Clic Kutools > Insera > Duplicați rânduri/coloane în funcție de valoarea celulei pentru a activa această caracteristică;
- Atunci alege Copiați și inserați rânduri opțiunea și specificați celulele Inserați gama si Repetați ori separat în caseta de dialog.
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!