|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
142.419到202.578你的模拟结果错误,其他跟你的结果一致。
为了方便对比,输出到I列和J列。
- Sub aaa()
- Dim arrOri, arrRst, n&, i&, j&, r&, sm#
- n = 25: r = 1
- arrOri = [a1].CurrentRegion
- ReDim arrRst(1 To UBound(arrOri) + arrOri(UBound(arrOri), 1) / 25 + 1, 1 To 2)
- arrRst(1, 1) = arrOri(1, 1): arrRst(1, 2) = arrOri(1, 2)
- For i = 2 To UBound(arrOri)
- sm = (arrOri(i, 2) - arrOri(i - 1, 2)) / (arrOri(i, 1) - arrOri(i - 1, 1))
- r = r + 1
- If arrOri(i, 1) > n Then
- arrRst(r, 1) = n
- arrRst(r, 2) = (n - arrOri(i - 1, 1)) * sm + arrOri(i - 1, 2)
- n = n + 25
- i = i - 1
- Else
- arrRst(r, 1) = arrOri(i, 1)
- arrRst(r, 2) = arrOri(i, 2)
- End If
- Next i
- [i1].Resize(r, 2) = arrRst
- End Sub
复制代码 |
|