如何在Excel表格的【单个】单元格内自动连续多次输入等差数列

Question

研究动量守恒问题，其中被抛射物体被分成的份数要手动输入1,2,3,4,5……如果分成分数比较大，很累人
如何做到自动的连续多次输入等差数列？
随着E2数值的变动，左侧B,C列会更新，随之F3更新，随之H,I列的对应空格会更新数据。这里需要手动重复输入的就是E2单元格。以下是主要代码B2】 =IF(A2<=$E$2,B1-($E$1-$G$1)/$E$2,$G$1)C2】 =$G$2*(B1-B2)/B1F3】 =SUM(C1:C505)I2】 =IF($E$2=H2,$F$3,I2)我需要能自动更新E2单元格数字的方法为了更形象一些 下面是将E2手动改为17的效果

如果要完整形成图像，E2格要手动输入数百次……

Answer 1

公式类似于
=初始值+(等差*ROW(A1))
自己将实际的初始值、等差替换到公式里
下拉追问

这里不是需要下拉的问题 A列与H列已经通过下拉产生等差数列了
目前做法是在单元格E2手动输入等差数列。我希望能用自动的方法代替手动

追答

I2】 =IF($E$2=H2,$F$3,I2)
这I2的公式里面也有个I2，是否是循环引用了？??

你是想在E2输入份数后
不下拉A、B、C、H、I列就自动显示那几份数据？
看来得用VBA来折腾

追问

我增加了一张图，是将E2格的数据从14改为17的效果
大概可以解释我面临的问题，还有需要自动改变E2数值的原因

追答

如果仅仅是要在E2连续输入数据

可以在截图的EXCEL窗口内同按CTRL+F11 这两个键

插入--模块

在右边的空白编辑窗口内粘贴以下代码

Sub test()
mydate = InputBox("请输入欲分成的最大份数", "输入", Default)
For i = 1 To mydate    '从1至最大份数的循环
    Range("E2") = i    'E2的值等于 i
Next
End Sub

在VBA窗口内

按F5键即可运行此段代码