按照非固定的间隔提取A列数据。

13061057983

按照间隔为0,1,1,2,3,5,8等等的顺序提取A列数据到B列，后面的间隔等于前面两个间隔依次相加，根据A列数据的多少，依次相加到间隔不够提取为止。

wmqz.130

1. Public Sub 斐波那契数列()
   
2. Dim n As Integer
   
3. [b2:b65536] = ""
   
4. [b2] = [a2]
   
5. [b3] = [a3]
   
6. [b5] = [a5]
   
7. [b7] = [a7]
   
8. n = 3
   
9. Do Until Range("b65536").End(xlUp).Offset(a + 1, -1) = ""
   
10. a = 1 / 5 ^ 0.5 * (((1 + 5 ^ 0.5) / 2) ^ n - ((1 - 5 ^ 0.5) / 2) ^ n)
    
11. Range("b65536").End(xlUp).Offset(a + 1, 0) = Range("b65536").End(xlUp).Offset(a + 1, -1)
    
12. n = n + 1
    
13. Loop
    
14. End Sub

复制代码

lss001

D2公式
=INDEX(A:A,ROW()+(POWER((1+SQRT(5))/2,(COLUMN(A1)+ROW(A1)-1))-POWER((1-SQRT(5))/2,(COLUMN(A1)+ROW(A1)-1)))/SQRT(5)-1)

13061057983

lss001 发表于 2018-2-14 22:30
D2公式
=INDEX(A:A,(POWER((1+SQRT(5))/2,(COLUMN(A1)+ROW(A1)-1))-POWER((1-SQRT(5))/2,(COLUMN(A1)+ROW( ...

公式提取的数据与下图的要求不太相符，请问能不能帮忙修改一下？数据从A2开始，需要按照0,1,1,2,3,5,8······的间隔提取A列数据，如果数据有5000行，也要按照0,1,1,2,3,5,8······的间隔顺序提取。不知公式可不可以实现？