将数据复制到具有四行的工作表中，四行将每个单元格与原始工作表分开

Question

我如何从一张工作表（即数据）中获取行条目，然后将其粘贴到另一张工作表（即计算）中，在粘贴的单元格之间有三行？

我可以复制并粘贴，但这将非常乏味。寻找公式或VBA代码。

Answer 1

如果 Sheet1是您的原始工作表
Sheet2是您的目标工作表
那么VBA代码是：

Option Explicit

Sub Copy_Paste()

Dim i As Integer
For i = 1 To 100 'number of rows 

 Sheets("Sheet1").Range(Cells(i, 1), Cells(i, 2)).Copy Sheets("Sheet2").Cells(((i - 1) * 4) + 1, 1)

Next i

End Sub

希望这会有所帮助