文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA 如果要在 Excel 工作表中针对相应数据进行线性插值计算，使用 VBA 如何实现？ 如下图 1 所示，有 3 个值，要使用这 3 个值进行线性插值。 图 1 结果如下图 2 所示。 图 2 可以使用下面的 VBA 代码： Sub LinInterp() Dim rKnown As Range '已知数值的区域 Dim rGap As Range '插值区域 Dim dLow As Double '最小值 Dim dHigh As Double '最大值 Dim dIncr As Double '增加值 Dim cntGapCells As Long '填充插值的单元格数 Dim iArea As Long '区域数变量 Dim iGap As Long '插值变量 '赋已知数组成的单元格区域给变量 Set rKnown = ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants, xlNumbers) With rKnown '遍历已知道区域并将其值复制到相邻列插值区 For iArea = 1 To .Areas.Count .Areas(iArea).Cells(1, 2).Value = .Areas(iArea).Cells(1, 1).Va
………………………………
