作业帮 > 综合 > 作业

如何 用excel在两数之间插入等差数列?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 07:56:38
如何 用excel在两数之间插入等差数列?

如图,如何在以上相邻两数之间插入一组数字使之成为(比如前两个数)以5.25为首项,9.12为尾项的等差数列.“编辑-序列-填充”只能填充两个数之间的一段.上图,我只选了三个数,需要填充两段.而我实际要处理的不止三个数,两段不知就我说的这种情况有没有更好的方法,
如果加满分就给你用VBA写个程序处理.
再问: 知恩图报是我的美德,请君放心,如果问题能得解决,必当厚谢!
再答: 请将你的数列粘贴到本表,按“插入等差数”按钮,输入数列所在列的列号数值(如A列为1、B列为2、C列为3……),输入数列最后一行的行号,确认即可得出结果。 Private Sub CommandButton1_Click()
Dim a As Double, b As Double
Dim col As Integer
Dim last As Integer, x As Integer, y As Integer
col = InputBox("请输入要插值的列号数值:")
last = InputBox("请输入最后值的行号:")
x = 1
Do While x < last
    a = Cells(x, col)
    y = 1
    Do While Cells(x + 1, col) = ""
        x = x + 1
        y = y + 1
    Loop
    x = x + 1
    b = Cells(x, col)
    For i = 1 To y - 1
        Cells(x - y + i, col) = Cells(x - y + i - 1, col) + (b - a) / y
    Next
Loop
End Sub