Excel-每次在另一个单元格插入单元格值

Question

我有一些特定的（不同的）号码，这些号码将是订单的交货时间，例如仓库，意味着交货时间是随机的。我想要＆＃34;订购数量＆＃34;插入＆＃34; x＆＃34;排在＆＃34;订单到达＆＃34;柱。例如，如照片所示，我想要＆＃34; 100＆＃34;订购质量要在＆＃34;顺序到达＆＃34;以及之后＆＃34; 120＆＃34;中插入两行。在＆＃34;顺序到达＆＃34;下插入5行。

有没有办法用excel中的函数做到这一点？有什么想法吗？谢谢1

example

Answer 1

希望下面的屏幕截图和代码示例可以帮助您入门。我不知道如何在不使用宏的情况下做你想做的事情，虽然我确信这里有一些专家可能能够提出一个惊人的公式！

请参阅下面的截图。为了演示的目的，我稍微重新格式化了你的表格，所以现在它看起来像这样：

然后我写了下面的宏。它是一个非常粗糙和准备好的宏，因为我在工作，即将回家，但它应该让你开始：

Sub runorders()

Worksheets("Sheet1").Range("D2:D1000").ClearContents

readrow = 2
currentday = Worksheets("Sheet1").Range("A" & readrow).Value
currentleadtime = Worksheets("Sheet1").Range("B" & readrow).Value
currentorderquantity = Worksheets("Sheet1").Range("C" & readrow).Value

Do Until currentday = ""

    If currentorderquantity <> "" Then
        Worksheets("Sheet1").Range("D" & readrow + currentleadtime).Value = Worksheets("Sheet1").Range("D" & readrow + currentleadtime).Value + currentorderquantity
    End If

readrow = readrow + 1
currentday = Worksheets("Sheet1").Range("A" & readrow).Value
currentleadtime = Worksheets("Sheet1").Range("B" & readrow).Value
currentorderquantity = Worksheets("Sheet1").Range("C" & readrow).Value

Loop

End Sub

显然，要使代码工作，您将需要完全按照我在屏幕截图中所做的设置工作簿。以橙色突出显示的单元格需要您的normaldistribution公式。不要忘记，每当宏将“订单到达”值写入列d中的单元格时，随机分布值将发生变化（例如重新采样），除非您对其执行某些操作。

我希望这有帮助！

保