求解：列数据插值一例，VBA实现？

ykqrs

加上VAL测试OK

1. Sub qq()
   
2. Dim r%, i%, j%, arr, brr(1 To 1000, 1 To 2)
   
3. Columns("f:g").Clear
   
4. r = Cells(Rows.Count, 1).End(xlUp).Row
   
5. arr = Range("a2:b" & r)
   
6. j = 1
   
7. For i = 1 To UBound(arr) - 1
   
8. brr(j, 1) = arr(i, 1)
   
9. If i = 1 Then
   
10. brr(j, 2) = arr(i, 2): brr(j + 1, 2) = arr(i, 2)
    
11. Else
    
12. brr(j - 1, 2) = arr(i, 2): brr(j, 2) = arr(i, 2): brr(j + 1, 2) = arr(i, 2)
    
13. End If
    
14. Do
    
15. j = j + 1
    
16. brr(j, 1) = Val(brr(j - 1, 1) + 0.1)
    
17. Loop While Val(brr(j, 1) + 0.1) < Val(arr(i + 1, 1))
    
18. j = j + 1
    
19. Next
    
20. brr(j, 1) = arr(i, 1): brr(j, 2) = arr(i, 2): brr(j - 1, 2) = arr(i, 2)
    
21. [f2:g2].Resize(j) = brr
    
22. End Sub
    

复制代码

czr0373

ykqrs 发表于 2018-8-16 11:36
加上VAL测试OK

多谢，多谢，好多值得学习的，我估计得研究好几天。

niko88819

值得学习 留下腳印

不知道为什么

ykqrs 发表于 2018-8-16 11:21
不知为什么？多出一行，捣鼓了半天，找不到原因

发现数组累加 0.1 后 很多值变成如图这样。应该是这个原因产生的

ykqrs

不知道为什么 发表于 2018-8-16 11:45
发现数组累加 0.1 后 很多值变成如图这样。应该是这个原因产生的

嗯，原来的代码我在本地窗口查看很正常，写入单元格就会多出来

czr0373

ykqrs 发表于 2018-8-16 11:36
加上VAL测试OK

请教老师，源数据超过12行提示下标越界，不知如何更改？

ykqrs

czr0373 发表于 2018-8-16 11:50
请教老师，源数据超过12行提示下标越界，不知如何更改？

给列数据插值.zip (26.13 KB, 下载次数: 5)

2018-8-16 11:59 上传

点击文件名下载附件