Excel - Fibonacci en EXCEL

Sub Fibo()

'------------------

'by Cacho Rodríguez

'------------------

Dim Q&, i&, Vec1, Vec2, Vec3, R&, j&, m%, iFibo$, S&

Q = Application.InputBox("Término de la sucesión a determinar:", Type:=1)

If Q = 0 Then Exit Sub

ReDim Vec1(1 To 1): Vec1(1) = 0

ReDim Vec2(1 To 1): Vec2(1) = 1

For i = 3 To Q

  R = UBound(Vec2)

  If 1 + Vec1(R) + Vec2(R) > 9 Then

    R = 1 + R

    ReDim Preserve Vec1(1 To R)

    ReDim Preserve Vec2(1 To R)

  End If

  ReDim Vec3(1 To R): m = 0

  For j = 1 To R

    Vec3(j) = m + Vec1(j) + Vec2(j)

    If Vec3(j) > 9 Then m = 1: Vec3(j) = Vec3(j) - 10 Else m = 0

  Next

  Vec1 = Vec2: Vec2 = Vec3

Next

S = UBound(Vec3)

j = Application.Ceiling(S, 100) / 100

ReDim Vec2(1 To j)

R = 0

For i = S To 1 Step -100

  Vec1 = Empty

  For j = i To Application.Max(1, i - 99) Step -1

    Vec1 = Vec1 & Vec3(j): Next

  R = 1 + R: Vec2(R) = Vec1

Next

Application.ScreenUpdating = False

With Range("d1")

  .CurrentRegion.Offset(1).Delete xlShiftUp

  .Value = "Término " & Q & ":"

  With .Offset(1).Resize(, UBound(Vec2))

    .NumberFormat = "@": .Font.Size = 9: .Font.Name = "Consolas"

    .Value = Vec2

    .EntireColumn.AutoFit

  End With

End With

Application.ScreenUpdating = True

End

End Sub