Automatically fill cells with a number series

[LJC]

Hi,

Does anyone know a way of automatically filling a range of blank cells with a number series . e.g

From Cell A1 down to cell A1000 I wanyt to fill with the numbers 1 to 1000 without having to use the fill handle to drag down which takes ages.

Wondered if there was either a macro or another method.

Thanks

 

[JamesW]

Hi there,

Try this:

Sub test()
    For i = 1 To 1000
        Cells(i, 1).Value = i
    Next
End Sub

 

[VoG]

Try

Sub fillseries()
With Range("A1:A1000")
    .Formula = "=ROW()"
    .Value = .Value
End With
End Sub

 

[mirabeau]

Sub fill()
   Range("A1").Value = 1
   Range("A1").Resize(1000).DataSeries
End Sub

 

[LJC]

Perfect thank u all they all worked a treat

 

[olives]

I'd like to do the same thing but, how could I change each of the codes submitted so the number list appears below the cell I have currently selected, not have them appear in the range A1:A1000, but where I'm currently 'parked' on the spreadsheet?... Thanks!