注册    登录
今天看啥  ›  专栏  ›  完美Excel

使用VBA进行线性插值

完美Excel  · 公众号  · Excel  · 2024-07-02 06:18
学习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).Value Next iArea '遍历要放置插值数 ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  HYPERLINK函数，此生只为超链接
3 天前
完美Excel  ·  搜索并汇总多个工作表中的数据
5 天前
完美Excel  ·  使用VBA进行线性插值
6 天前
Excel之家ExcelHome  ·  FREQUENCY函数的几个典型用法
1 周前
Excel之家ExcelHome  ·  VLOOKUP函数出错，这几个原因要注意
6 天前
络绎科学  ·  鲍哲南等9位华人学者当选！2024美国国家科学院院士名单揭晓
2 月前
医学佳园  ·  感情纠葛？华西医院一女医生持刀行凶捅伤男同事！院方回应
9 月前
老井扯鸡蛋  ·  金能乳化大豆磷脂油，蛋鸡饲料能量降本不降质的最佳选择！！
1 年前
环球人力资源智库  ·  为什么90%的老板做不好绩效管理？
1 年前
来去之间  ·  230万笔5100万微公益捐助-20210807221849
2 年前
关于   移动版
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号