Vba 使用初始值将数据写入单元格

如果我能得到帮助，我正在尝试使用初始值将数据写入电子表格中的单元格，然后添加一个特定的增量，直到它达到指定的最大值。我在下面举了一个例子。多谢各位

最低：0.5 最高：1.5 增量：0.1

写了下面的代码，但它运行无限。。。 子增量值（） Dim iMin，iMax，inc，x作为单个

iMin = Range("A1").Value
iMax = Range("A2").Value
Inc = Range("A3").Value

Range("B1").Value = iMin
x = 1

Do
x = x + 1
Range("B" & x).Value = Range("B" & x - 1).Value + Inc
Loop Until Range("B" & x).Value = iMax

---

End Sub

您是否已经尝试过某些东西，或者您只是在这里放弃了您的要求？没有……我已经尽了最大的努力。。。这不是一项要求。。只是一个案例场景。@ugo请澄清。展示一个样本，你说你想要什么，然后等待别人为你编码，而不需要你方的成本或投资。这就是我所说的“倾销你的需求”。嗨，我知道，我有一个标有“最大，最小，增量”的单元格。我所做的是创建一个userform，在userform中我创建了3个文本框，所有文本框都链接到我的电子表格中的单元格位置。当用户在3个类别（最小值、最大值和增量）中输入值时，它将传输到电子表格，并根据增量填充表格，但不超过最大值。为了最大化，我可以很容易地将texbox链接到单元格位置，但增量变得很难。非常感谢…嗨，迪克，这里有一个，但它是内部运行的。谢谢你。子循环（）Dim iMin，iMax，inc，x作为单个iMin=Range（“A1”）。Value iMax=Range（“A2”）。Value inc=Range（“A3”）。Value Range（“B1”）。Value=iMin x=1 Do x=x+1 Range（“B”&x）。Value=Range（“B”&x-1）。Value+inc循环直到Range（“B”&x）.Value=iMax End将其子更改为

循环直到范围（“B”&x）。Value>=iMax

并且它不会无限运行。但是我更喜欢我的方法。嗨，迪克，包括了>符号，它运行得很好，我认为你的方法很好，但似乎无法为它分配单元格地址。。它肯定要短得多。。。你真是太棒了…谢谢大家。。。

Sub FillIncrementingSeries(rStart As Range, dMin As Double, dMax As Double, dIncr As Double)

    rStart.Value = dMin
    rStart.Resize(((dMax - dMin) / dIncr) + 1, 1).DataSeries xlColumns, xlDataSeriesLinear, , dIncr, dMax

End Sub