Question

此宏复制单元格H19并将其值粘贴到单元格P13

如何重写此操作以便操作（复制和粘贴）运行100次，每次H19

之后将P13单元格粘贴到下一个单元格中

Sub Button4_Click()
'
' Button4_Click Macro
'
Range("H19").Select
Selection.Copy
Range("P13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

这用于复制使用RAND()的Sum的输出，因此我想使用不同的随机数多次计算此Sum并记录结果。

Answer 1

试试这个：

Sub Button4_Click()

    For i = 1 To 100
        Worksheets("Sheet1").Range("P13").Offset(i - 1, 0).Value = Worksheets("Sheet2").Range("H19").Value
    Next
End Sub

宏重复复制到新行

1 个答案: