Копирование значения во вставленные пустые строки в нескольких столбцах

Question

У меня есть лист с несколькими столбцами, а в столбце A есть данные, где я удалил дубликаты.

Это код для вставки девяти пустых строк под каждым из уникальных значений.

Sub RowAdder()
    Dim i As Long, col As Long, lastRow As Long
    col = 1 lastRow = Cells(Rows.Count, col).End(xlUp).Row

    For i = lastRow To 3 Step -1
        If Cells(i - 1, col) <> Cells(i, col) Then
            Range(Cells(i, col).EntireRow, Cells(i + 8, col).EntireRow).Insert shift:=xlDown
        End If
    Next I

End Sub

Мне нужно адаптировать этот код, чтобы скопировать значения каждого уникального значения в пустые строки ниже для столбца A в C.

В последней строке мне нужно скопировать значение в 9 пустых строк.

Answer 1

может быть, вы хотите что-то вроде этого

Sub RowAdder()    
    Dim i As Long, col As Long

    col = 1        
    With Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp))
        For i = .Rows(.Rows.Count).Row To 3 Step -1
            If Cells(i - 1, col) <> Cells(i, col) Then Range(Cells(i, col).EntireRow, Cells(i + 8, col).EntireRow).Insert shift:=xlDown
        Next i
        With .Resize(.Rows.Count + 9)
            With .SpecialCells(xlCellTypeBlanks)
                .FormulaR1C1 = "=R[-1]C"
                Intersect(.EntireRow, Range("B:C")).FormulaR1C1 = "=RC[-1]"
            End With
            With Intersect(.EntireRow, Range("A:C"))
                .Value = .Value
            End With
        End With
    End With


End Sub