Kako ponoviti vrstice določeno število krat na podlagi drugega stolpca v Excelu?

Ste že poskusili ponoviti vrstico na podlagi druge vrednosti stolpca, kot je prikazano na sliki spodaj? V tem članku bom predstavil metodo reševanja tega dela v Excelu.

Vrstice ponovite na podlagi druge vrednosti stolpca z VBA

Ponovite vrstice na podlagi vrednosti drugega stolpca tako, da Kutools for Excel

Vrstice ponovite na podlagi druge vrednosti stolpca z VBA

Tu imam kodo, ki lahko hitro ponovi vrstice na podlagi zadnjih vrednosti stolpcev.

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, nato kopirajte spodnjo kodo in jo prilepite v novo Moduli skripta.

VBA: Ponovite vrstice na podlagi druge vrednosti stolpca

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. Pritisnite F5 tipko, odpre se pogovorno okno, izberite seznam številk, na katerem bodo vrstice ponovljene.

4. Kliknite V redu, vrstice so bile ponovljene glede na izbrano vrednost stolpca.

Ponovite vrstice na podlagi vrednosti drugega stolpca tako, da Kutools for Excel

Če ne znate uporabljati VBA, lahko poskusite Kutools for ExcelJe Podvojene vrstice/stolpci na podlagi vrednosti celice funkcija, ki potrebuje le dva koraka.

1. klik Kutools > Vstavi > Podvojene vrstice/stolpci na podlagi vrednosti celice.

2. V pogovornem oknu izberite Kopirajte in vstavite vrstice možnost v tip razdelek, nato izberite obseg, na katerega želite ponoviti Vstavite Range besedilno polje in izberite stolpec, ki določa čas ponovitve Ponovi čas besedilno polje. Kliknite Ok.

Nato se vrstice ponovijo za izbrani stolpec.