Converting a row into multiple rows

**pedram_i7** · 07-11-2013, 10:50 AM

Very emergency
I have a worksheet with one column and 96 rows of data. I want to convert each row into 62 rows with the same value,

eg:

Row1: 2342
Row2: 4351
.
.
.
.
In other words I want 62 rows with the value of "2341" and below that, another 62 rows with the value of "4351" and so on. (instead of 96 rows I want 96*62 rows).

please help

**tehneXus** · 07-11-2013, 11:07 AM

try

Sub MultiplyRows()
    Const multi As Long = 62
    
    Dim aData, i&, j&
    aData = Cells(1).CurrentRegion.Value
    j = 1
    For i = LBound(aData, 1) To UBound(aData, 1)
        Cells(j, 1).Resize(multi).Value = aData(i, 1)
        j = j + multi
    Next i
End Sub

where multi is the number of rows you want and your data starts in row 1 and has no blanks till the last row of data. Values will be replaced in place