在VBA Excel中复制和粘贴循环以进行多个输出

Sub CopyPasteLoop()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Integer
    
    ' 设置源数据范围
    Set sourceRange = Range("A1:A10")
    
    ' 设置目标位置
    Set targetRange = Range("B1")
    
    ' 循环复制和粘贴
    For i = 1 To 5
        sourceRange.Copy
        targetRange.PasteSpecial Paste:=xlPasteValues
        
        ' 更新目标位置
        Set targetRange = targetRange.Offset(sourceRange.Rows.Count, 0)
    Next i
End Sub