tjanstad

Hello,

I create a vector in a macro and want to send it to the worksheet. How do I do?

Sub simulete()
'simulates randomnumbers around a line y(i)=beta_0+beta_1*x(i)
Dim beta0, beta1 As Double
Dim n As Integer
Dim x(1 To 100) As Double
Dim y(1 To 100) As Double
Dim uniform As Double

Dim vRand

beta0 = Range("A2") 'intercept
beta0 = Range("B2") 'slope
n = 100
For i = 1 To n
x(i) = i
vRand = Rnd()
NormRnd = WorksheetFunction.NormSInv(vRand)
y(i) = beta0 + x(i) * beta1 + NormRnd
Next i
'Range("A3", "A103") = x(1 To 100) I wanna do something like this

'Range("B3", "B103") = y, or like this but I don't get it to work
End Sub

/Tobias

Colin Legg

Hi Tobias and welcome to the forum!

Please be sure to read the posting guidelines.

Before I answer your question I just want to point out a common misconception when declaring variables in Excel VBA:
That line will dimension beta0 as a variant and beta1 as a double. To declare them both as doubles you should use:
Now onto arrays into worksheets. If you're working with a 2-D array you can directly dump it into a worksheet without looping. However I don't see the advantage of using arrays here - can't you just use something like this (adapt it as necessary)?