如何 用excel在两数之间插入等差数列?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 07:56:38
如何 用excel在两数之间插入等差数列?
如图,如何在以上相邻两数之间插入一组数字使之成为(比如前两个数)以5.25为首项,9.12为尾项的等差数列.“编辑-序列-填充”只能填充两个数之间的一段.上图,我只选了三个数,需要填充两段.而我实际要处理的不止三个数,两段不知就我说的这种情况有没有更好的方法,
如图,如何在以上相邻两数之间插入一组数字使之成为(比如前两个数)以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
再问: 知恩图报是我的美德,请君放心,如果问题能得解决,必当厚谢!
再答: 请将你的数列粘贴到本表,按“插入等差数”按钮,输入数列所在列的列号数值(如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
如何 用excel在两数之间插入等差数列?
在等差数列2,5,8…中,每相邻两项之间插入三个数使其构成等差数列,这样得到一新数列,问;(1)原数...
在10和100之间插入50个数,使之成等差数列,求插入数之和
在8与20之间插入三个数,使这五个数成等差数列,求插入的三个数
在3和57之间插入两个数,使它们成等差数列,求这两个数
在-2和22之间插入三个数,使它们成等差数列,求这三个数
在20到70之间插入三个数,使得这5个数成为等差数列,插入的三个数分别是多少?
在10与100之间插入50个数,使之成等差数列,求插入数的和
在10与100之间插入50个数,使之成等差数列.求插入的数之和
在10与100之间插入50个数,使之成为等差数列.求插入的数之和.(附带过程)
在1和31之间插入4个数,使这六个数组成等差数列,求插入的这4个数
在数7和-3之间插入6个数后构成等差数列,则插入的6个数之和为?