RAJAQ
12/2/2016 - 10:37 AM

For Next Loop - Fill in a selection of cells (rows and columns specified) with random numbers

For Next Loop - Fill in a selection of cells (rows and columns specified) with random numbers

For Next Loop
content_copyfile_download
Option Explicit
Dim Col As Long
Dim Row As Long

Sub FillRange()

    For Col = 1 To 5
        For Row = 1 To 12
            Cells(Row, Col) = Rnd
        Next Row
    Next Col

End Sub