Hogyan lehet megismételni a sorokat meghatározott számú alkalommal az Excel másik oszlopa alapján?

Megpróbálta már megismételni a sort egy másik oszlopérték alapján, az alábbi képernyőképen? Ebben a cikkben bemutatom a feladat megoldásának módszerét az Excel programban.

Ismételje meg a sorokat egy másik oszlopérték alapján a VBA segítségével

Ismételje meg a sorokat egy másik oszlopérték alapján a Kutools for Excel segítségével

Ismételje meg a sorokat rögzített idővel a Kutools for Excel segítségével

Ismételje meg a sorokat egy másik oszlopérték alapján a VBA segítségével

Itt van egy kódom, amely gyorsan megismételheti a sorokat az utolsó oszlopértékek alapján.

1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd másolja a kód alá, és illessze be az újba Modulok szkripteket.

VBA: Ismételje meg a sorokat egy másik oszlopérték alapján

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

3. nyomja meg F5 gombot, megjelenik egy párbeszédpanel, válassza ki a számlistát, amely alapján a sorok megismétlődnek.

4. Kattintson az OK gombra. A sorok megismétlődtek a kiválasztott oszlopérték alapján.

Ismételje meg a sorokat egy másik oszlopérték alapján a Kutools for Excel segítségével

Ha nem vagy jó a VBA használatában, akkor megpróbálhatod Kutools az Excel számára'S Sorok/oszlopok megkettőzése a cellaérték alapján funkció, amelyhez mindössze két lépésre van szükség.

1. kettyenés Kutools > betétlap > Sorok/oszlopok megkettőzése a cellaérték alapján.

2. A felbukkanó párbeszédpanelen válassza a lehetőséget Sorok másolása és beszúrása lehetőség a típus szakaszban, majd válassza ki azt a tartományt, amelyre meg szeretné ismételni Tartomány beszúrásae szövegdobozba, és válassza ki azt az oszlopot, amely meghatározza az ismétlési időket Ismételje meg az időket szövegdoboz. Kattintson a gombra Ok.

Ezután a sorok megismétlődnek a kiválasztott oszlopban.

Ismételje meg a sorokat rögzített idővel a Kutools for Excel segítségével

Ha rögzített idővel szeretné megismételni a sorokat anélkül, hogy sorokat illesztene be egymás után, megpróbálhatja használni a Üres sorok és oszlopok beszúrása és a Töltse ki az üres cellákat segédprogramjai Kutools az Excel számára hogy gyorsan kezelje ezt a munkát.

Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)

1. Válassza ki az adatsort, amelyen meg akarja ismételni a sorokat, kattintson a gombra Kutools > betétlap > Üres sorok és oszlopok beszúrása. Aztán a Üres sorok és oszlopok beszúrása párbeszédpanelen ellenőrizze Üres sorok opciót, majd írja be 1 bele Intervallum of szövegmezőbe, és írja be azt a számot, amelyben meg akarja ismételni a sorokat Sorok szövegdoboz.

2. kettyenés Ok, az üres sorokat minden sor alá beillesztették.

3. Tartsa meg a tartományt, kattintson a gombra Kutools > betétlap > Töltse ki az üres cellákat. Az Töltse ki az üres cellákat párbeszédpanelen ellenőrizze Értékek alapján és a Lefelé lehetőségeket.

4. kettyenés Ok. Most az üres cellákat kitöltöttük a fenti értékkel.