Option Explicit
Sub xx()
Dim myrg As Variant, i As Long
Dim RandomDay As Variant
Range("A2").CurrentRegion.Select
myrg = Selection
For i = 1 To 10000
RandomDay = Int((UBound(myrg) * Rnd))
'MsgBox Selection(RandomDay)
Range("F" & Rows.Count).End(xlUp).Offset(1, 0) = Selection(RandomDay)
Next
End Sub
900 |
938 |
939 |
893 |
914 |
915 |
880 |
894 |
908 |
878 |
0 |
<COLGROUP><COL style="WIDTH: 54pt" width=72><TBODY>
</TBODY>