连接string在斐波纳契seq

我打算在A1单元格写出Fibonacci序列的前20个值，输出应该是1,1,2,3,5,8,13,21,34,55

1. 当我尝试将数字添加到string时，出现错误。

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

使用数组差别很大，所以可以根据需要输出数组。

 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