Question

我正在尝试基于具有100个可能值的随机变量迭代公式，将每个迭代的输出粘贴到后续列中。我已经将随机变量的值范围设置为Range，并且我在Range中使用For Each“cell”来尝试迭代。为了通过后续列中的值，我使用了Do Until a blank列。这工作正常，但是粘贴的值仅用于一次迭代，即它在复制和粘贴下一次迭代之前不会运行更改随机变量。帮助赞赏。

Dim Rng1 As Range, cell As Range
Set Rng1 = Range("J25:J123")

For Each cell In Rng1
Range("F21").Value = cell.Value

    Sheets("Data").Select
    Range("BP3").Select 
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

        Range("BR3").Select
        Do Until IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select
        Loop

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Next cell

End Sub

适用于范围内的每个人

0 个答案: