VBA 根据单元格值多次复制并粘贴范围

Question

我尝试根据另一个单元格中列出的数字多次复制并粘贴一系列单元格（最多 3 次）。因此，如果 B1 = 2，那么我想将 A2:C11 复制并粘贴到 A13:C22。如果 B1 = 3，则将 A2:C11 复制并粘贴到 A13:C22 和 A24:C33。如果 B1 = 4，则复制并粘贴 A2： C11 转换为 A13:C22 和 A24:C33 和 A35:C44。

我对 VBA 很陌生，所以我感谢任何帮助！谢谢！！

还没有尝试过任何东西，因为我真的不知道从哪里开始。

Answer 1

Sub CopyBlock()
    Dim rng As Range, n As Long
    With ActiveSheet
        Set rng = .Range("A2:C11")
        For n = 1 To .Range("B1").Value
           rng.Copy rng.Offset(n * (rng.Rows.Count + 1))
        Next
        MsgBox n - 1 & " blocks copied", vbInformation
    End With
End Sub