ExcelのVBAでをA列に第0〜19項のフィボナッチ数列を代入するプログラムを作りたいです。 どな

ExcelのVBAでをA列に第0〜19項のフィボナッチ数列を代入するプログラムを作りたいです。　
どなたか、この続きを教えて下さい。

No.2 回答者： tatsumaru77 回答日時： 2022/11/10 11:44

こうですね。

No.1 回答者： fujillin 回答日時： 2022/11/10 10:38

こんにちは

違う発想でも良ければ・・・
（エクセルに計算してもらう方法です）

Sub Sample()
Const n = 20 ' ←最大項数

If n < 3 Then Exit Sub
Range("A1:A2").Value = 1
Range("A3").Resize(n - 2).FormulaLocal = "=A1+A2"
Columns(1).Value = Columns(1).Value
End Sub

※ 初項の値は1にしてあります。
（普通は、1,1,2,3・・・のはずですので）