如何通过VB用插值法补充EXCEL中缺失的数据

willluo

情况比较复杂，是面板数据，其中缺失的有位于年份段中间的也有位于两端的，有单独空缺一个的，也有连续几个空格空缺的，请问使用VB代码如何用插值法自动补全呢？（插值法就是与 函数trend 的作用相同）
求助各位老师，不胜感激
插值法的计算公式如下图所示

sylinmc

建议给出计算方法以及效果图

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, k, kk, ave
  arr = Range("d3:t" & Cells(Rows.Count, "c").End(xlUp).Row)
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      If Len(arr(i, j)) Then Exit For
    Next
    If j > 1 Then
      ave = arr(i, j) - arr(i, j + 1)
      For j = j - 1 To 1 Step -1
        arr(i, j) = arr(i, j + 1) + ave
      Next
    End If
    For j = 1 To UBound(arr, 2)
      If Len(arr(i, j)) = 0 Then
        For k = j + 1 To UBound(arr, 2)
          If Len(arr(i, k)) Then
            ave = (arr(i, k) - arr(i, j - 1)) / (k - j + 1)
            For kk = j To k - 1
              arr(i, kk) = Round(arr(i, kk - 1) + ave, 2)
            Next
            j = k: Exit For
          End If
        Next
        If k = UBound(arr, 2) + 1 Then
          ave = arr(i, j - 2) - arr(i, j - 1)
          For k = j To UBound(arr, 2)
            arr(i, k) = Round(arr(i, k - 1) - ave, 2)
          Next
        End If
      End If
    Next
  Next
  [d3].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

willluo

sylinmc 发表于 2019-7-3 09:28
建议给出计算方法以及效果图

您好，我需要的计算方法就如同
https://jingyan.baidu.com/article/36d6ed1f6262821bcf488328.html
这个地址所说的那样，根据空格所在的位置不同，公式也会有一点点不一样

willluo

一把小刀闯天下 发表于 2019-7-3 10:39
Option Explicit

Sub test()

谢谢老师，不过老师您是直接计算了均值，我想要用的方法是插值法，具体和这个百度经验所说的一样，可以麻烦老师指导一下该怎么做嘛

willluo

一把小刀闯天下 发表于 2019-7-3 10:39
Option Explicit

Sub test()

https://jingyan.baidu.com/article/36d6ed1f6262821bcf488328.html

willluo

一把小刀闯天下 发表于 2019-7-3 10:39
Option Explicit

Sub test()

老师，计算方法就如这个图这样，根据空缺数据所在位置不同，公式也会有一点点不同

willluo

sylinmc 发表于 2019-7-3 09:28
建议给出计算方法以及效果图

您好，计算方法和这个图一样，根据空格位置不同，计算方法也会有一点点不同

一把小刀闯天下

willluo 发表于 2019-7-3 19:28
谢谢老师，不过老师您是直接计算了均值，我想要用的方法是插值法，具体和这个百度经验所说的一样，可以麻 ...

中间空值按直线分段去填写数据，前后空值按射线分段写入数据，算是简单粗暴的方法

不太可能为了你这问题去找这个文档来了解什么是插值法的，，，

micch

还得先学习一下计算公式，再把计算式转化为代码，有心无力啊