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 număr specificat de ori cu un instrument la îndemână - Kutools for 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 for 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 și 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 for Excelși experimentați eficiența ca niciodată înainte. Kutools for 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...
Office Tab Aduce interfața cu file la 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!
