Làm thế nào để lặp lại các hàng một số lần được chỉ định dựa trên một cột khác trong Excel?

Bạn đã bao giờ cố gắng lặp lại một hàng dựa trên một giá trị cột khác như ảnh chụp màn hình dưới đây chưa? Trong bài viết này, tôi sẽ giới thiệu phương pháp giải quyết công việc này trong Excel.

Lặp lại các hàng dựa trên một giá trị cột khác với VBA

Lặp lại các hàng dựa trên một giá trị cột khác bởi Kutools cho Excel

Lặp lại các hàng dựa trên một giá trị cột khác với VBA

Ở đây tôi có một mã có thể nhanh chóng lặp lại các hàng dựa trên giá trị cột cuối cùng.

1. nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đun, sau đó sao chép mã bên dưới và dán vào mã mới Mô-đun kịch bản.

VBA: Lặp lại các hàng dựa trên một giá trị cột khác

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. nhấn F5 , một hộp thoại bật ra, chọn danh sách số mà các hàng sẽ được lặp lại dựa trên.

4. Nhấp OK, các hàng đã được lặp lại dựa trên giá trị cột đã chọn.

Lặp lại các hàng dựa trên một giá trị cột khác bởi Kutools cho Excel

Nếu bạn không giỏi sử dụng VBA, bạn có thể thử Kutools cho Excel'S Các hàng / cột trùng lặp dựa trên giá trị ô tính năng này chỉ cần hai bước.

1. nhấp chuột Kutools > Chèn > Các hàng / cột trùng lặp dựa trên giá trị ô.

2. Trong hộp thoại bật lên, hãy chọn Sao chép và chèn hàng tùy chọn trong Kiểu , sau đó chọn phạm vi mà bạn muốn lặp lại Chèn Ranghộp văn bản e và chọn cột quyết định thời gian lặp lại Lần lặp lại hộp văn bản. Nhấp chuột Ok.

Sau đó, các hàng sẽ được lặp lại bởi cột đã chọn.