Note: The other languages of the website are Google-translated. Back to English

Cum se repetă rândurile de un număr specificat de ori pe baza unei alte coloane din Excel?

Ați încercat vreodată să repetați un rând pe baza unei alte valori a coloanei, așa cum este prezentat mai jos? În acest articol, voi introduce metoda de rezolvare a acestei lucrări în Excel.
doc repetă rânduri pe baza coloanei 1

Repetați rândurile pe baza unei alte valori a coloanei cu VBA

Repetați rândurile pe baza unei alte valori a coloanei de Kutools pentru Excel

Repetați rândurile cu un timp fixat de Kutools pentru Excel


Repetați rândurile pe baza unei alte valori a coloanei cu VBA

Aici am un cod care poate repeta rapid rândurile pe baza valorilor ultimei coloane.

1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, apoi copiați codul de mai jos și lipiți-l în noul Module script-ul.

VBA: Repetați rândurile pe baza unei alte valori a coloanei

Sub CopyRow()
'UpdatebyExtendoffice20181011
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 number value", "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

doc repetă rânduri pe baza coloanei 2

3. presa F5 tasta, apare un dialog, selectați lista de numere pe care se vor repeta rândurile.
doc repetă rânduri pe baza coloanei 3

4. Faceți clic pe OK, rândurile au fost repetate pe baza valorii coloanei selectate.
doc repetă rânduri pe baza coloanei 1


Repetați rândurile pe baza unei alte valori a coloanei de Kutools pentru Excel

Dacă nu sunteți bun la utilizarea VBA, puteți încerca Kutools pentru Excel'S Duplicați rânduri/coloane în funcție de valoarea celulei caracteristică, care are nevoie doar de doi pași.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

1. clic Kutools > Insera > Duplicați rânduri/coloane în funcție de valoarea celulei.
doc repetare rânduri timp fix 1

2. În dialogul popping, alegeți Copiați și inserați rânduri opțiune în Tip secțiunea, apoi alegeți intervalul la care doriți să repetați Introduceți Sunetule caseta de text și alegeți coloana care decide timpii de repetare pentru Repetați ori casetă de text. Clic Ok.
doc repetare rânduri timp fix 1

Apoi rândurile vor fi repetate de coloana selectată.
doc repetare rânduri timp fix 1


Repetați rândurile cu un timp fixat de Kutools pentru Excel

Dacă doriți să repetați rândurile cu un timp fix, fără a insera rânduri unul câte unul, puteți încerca să utilizați Introduceți rânduri și coloane goale și Umpleți celulele goale utilitati ale Kutools pentru Excel să se ocupe rapid de această slujbă.
doc repetare rânduri timp fix 1

După instalare Kutools pentru Excel, faceți următoarele:(Descărcați gratuit Kutools pentru Excel acum!)

1. Selectați intervalul de date pe care doriți să repetați rândurile, faceți clic pe Kutools > Insera > Introduceți rânduri și coloane goale. Apoi în Introduceți rânduri și coloane goale dialog, verificați Rânduri goale opțiune, apoi tastați 1 în Intervalul of casetă text și tastați numărul în care doriți să repetați rândurile Rânduri casetă de text.
doc repetare rânduri timp fix 2

2. clic Ok, rândurile goale au fost inserate sub fiecare rând.
doc repetare rânduri timp fix 3

3. Păstrați intervalul selectat, faceți clic pe Kutools > Insera > Umpleți celulele goale. În Umpleți celulele goale dialog, verificați Pe baza valorilor și Jos opțiuni.
doc repetare rânduri timp fix 4

4. clic Ok. Acum, celulele goale au fost umplute cu valoarea de mai sus.
doc repetare rânduri timp fix 5


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (5)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, cum să mutați ieșirea repetată pe partea datelor originale?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, yiyun zhu, puteți face o copie a datelor originale, apoi utilizați metoda de mai sus pentru a gestiona copia și păstrați datele originale.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut,

I've just tried the Repeat rows based on another column value by Kutools for Excel functionality and it seems to be squaring the (repeat value + 1).

For example if I have a repeat value for a row as 2, then it repeats that row another 8 times to make a total of 9 rows of the same data.
If I have a repeat value of 4, then it repeats that row for another 24 times to make a total of 25 rows of the same data.

So repeat value of 1 -> Total 4 rows -> Should be total of 2
2 -> Total 9 rows -> Should be total of 3
3 -> Total 16 rows -> Should be total of 4
4 -> Total 25 rows -> Should be total of 5
7 -> Total 64 rows -> Should be total of 8
Acest comentariu a fost redus la minimum de moderatorul de pe site
Update on my previous comment. It looks like it's not happening everytime but I can't see why some rows are working as expected and others aren't.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Megan Brennan, poți să-mi arăți la ce rânduri nu va funcționa funcția?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL