vbaフィボナッチseqに文字列を結合する

Question

私はA1セルでフィボナッチシーケンスの最初の20個の値を書こうとしています 出力は1,1,2,3,5,8,13,21,34,55

でなければなりません

1. 数字を文字列に追加しようとするとエラーが発生します。

2. どのように結果をA1セルに入れることができますか？

は、ここに私の試みです：

Sub Looping() 

Series = 0 
newVar = 1 

For x = 1 To 20 
    Series = Series + newVar 
    newVar = Series - newVar 
    Series=Series& newVar&"," 
Next x 
End Sub 

Answer 1

Sub Looping() 

    series = "1" 
    oldvar = 1 
    newvar = 1 


    For x = 1 To 20 

     series = Series & "," & newvar 
     newvar = oldvar + newvar 
     oldvar = newvar - oldvar 

    Next x 

cells(1,1) = series 
End Sub 

Answer 2

Slighly異なるアレイを使用して、その出力配列希望することができます。

Sub Looping() 

Dim a(19) As Long 
Dim sOut As String 
Dim newvar As Long 

series=1 
newvar = 1 

For x = 1 To 20 
    If x > 2 Then 

     newvar = a(x - 3) + a(x - 2) 
     a(x - 1) = newvar 

    Else 

     a(x - 1) = series 

    End If 

    sOut = sOut & IIf(x > 1, ",", "") & CStr(newvar) 


Next x 

Range("a1").Value = sOut 

End Sub