"Range("A1:A10") = Fill in the blank" so

[goldfish]

I'm trying to recall a post I saw a few months ago that failed to show up in my searches. In it the poster used a formula to set multiple values without a loop. Something like

 Range("A1:A5") = Something

So that you would get

Column A
1
0
1
0
1

I know one possible way to do this would be

Range("A1:A5").Formula = "=Mod(ROW(),2)"

But I think I remember the values being constants rather than formulas.

So how do I assign an array of values to an range without a loop? or maybe a particular formula that can be evaluated right away, but all in a single line of code?

Thanks,
~Gold Fish

 

[Norie]

It might help if you told us the values/formulas you want to assign to the range.

 

[Andrew Poulsom]

Like this?

Sub Test()
    Dim Something As Variant
    Something = Array("One", "Two", "Three", "Four", "Five")
    Range("A1:A5").Value = WorksheetFunction.Transpose(Something)
End Sub

 

[Richard Schollar]

Hi

Check out this thread:

http://www.mrexcel.com/board2/viewtopic.php?t=279510&highlight=evaluate

Autofill is a swift option.

 

[goldfish]

Exact Post I was looking for Richard! Thanks! Thats some pretty slick code!

Thanks all!

~Gold Fish