excel - 多次复制粘贴并循环播放

Question

我在编写代码以多次复制和粘贴时遇到问题。
我有 2 张纸，在第 1 张中我有 160 行和 3 列。
我需要复制每一行并在表 2 中粘贴 15 次。
谁能帮我整理一下。

Answer 1

鉴于您保留了您所说的三列和第 1 行中的标题，您可以通过在简单的 for 循环中动态更改范围来实现您所说的

Sub copy_15()

Application.ScreenUpdating = False

With Worksheets("Sheet2")

Dim wS2 As Range
Set wS2 = .Range("A1").CurrentRegion

wS2.ClearContents

'Copy headers
Worksheets("Sheet1").Range("A1:C1").Copy
.Range("A1").PasteSpecial

End With

Dim lastRow1 As Long: lastRow1 = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastRow1

Worksheets("Sheet1").Range("A" & i & ":C" & i).Copy
    
Dim lastRow2 As Long: lastRow2 = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

Worksheets("Sheet2").Range("A" & lastRow2 + 1 & ":C" & lastRow2 + 15).PasteSpecial

Next i

Application.CutCopyMode = False


End Sub