VBA Excel重复复制粘贴多个值

Sub CopyPasteValues()
    Dim i As Integer
    Dim copyRange As Range
    Dim pasteRange As Range
    
    Set copyRange = Range("A1:A10") '要复制的区域
    Set pasteRange = Range("B1") '要粘贴的起始单元格
    
    For i = 1 To 5 '重复5次
        copyRange.Copy
        pasteRange.Offset((i - 1) * copyRange.Rows.Count).PasteSpecial Paste:=xlPasteValues
    Next i
    
    Application.CutCopyMode = False '清除剪贴板内容
End Sub

Sub CopyPasteValues()
    Dim copyRange As Range
    Dim pasteRange As Range
    
    Set copyRange = Range("A1:A10") '要复制的区域
    Set pasteRange = Range("B1") '要粘贴的起始单元格
    
    copyRange.Copy
    pasteRange.Resize(copyRange.Rows.Count * 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Application.CutCopyMode = False '清除剪贴板内容
End Sub