VBA: расчет LN Daily Returns - подстрочный код из диапазона

Question

Я новичок в массивах в VBA, это намного проще в MatLab, но я не могу заставить код работать. Просто, я расчет LN ежедневные возвращения индекса: LN (t0/t1) Вот код:

Dim Index() As Variant 

Dim Ret() As Variant 

    Index = Range("B9:B29") 

    For i = 1 To UBound(Index) - 1 

     Ret(i, 1) = Log(Index(i, 1)/Index(i + 1, 1)) 

    Next i 

Я получаю сообщение об ошибке в Ret (I, 1) петля. Любая помощь будет оценена!

Answer 1

Обнаружено, когда ReDim обращается в массив с одним измерением. Поэтому Ret (i, 1) должен быть Ret (1). Интересно, почему Index = Range возвращает 2-мерный массив?

Dim Index() As Variant 
    Dim Ret() As Variant 


    Index = Range("B9:B29") 

    ReDim Ret(1 To UBound(Index) - 1) 


    'Debug.Print Index(1, 1) 


    For i = 1 To UBound(Index) - 1 

     Ret(i) = Log(Index(i, 1)/Index((i + 1), 1)) 

    Next i