复制并粘贴每第N行

我需要一个macros，它将从一个工作表复制一列，并粘贴到每第五行的另一个电子表格。 我试过使用代码片段，但我还没有find一个我可以修改，使其工作。 这让我疯狂。 我相信对于那些使用VB代码更高级的人来说这很容易。

复制直到列A为空

[Workbook1] Column A Name1 Name2 Name3 Name4 etc. 

 [Workbook2] Column A Paste Name1 in Row 5 Paste Name2 in Row 10 Paste Name3 in Row 15 Paste Name4 in Row 20 etc. 

Answer 1

我们可以假设两个工作表都在同一个工作簿中吗？ 如果是这样，它可能看起来像下面的代码：

 Sub Test() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lngRowCounter As Long Dim lngRowMultiplier As Long lngRowCounter = 1 lngRowMultiplier = 5 Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") Do While Not IsEmpty(ws1.Range("A" & lngRowCounter)) ws2.Range("A" & lngRowCounter * lngRowMultiplier).Value = _ ws1.Range("A" & lngRowCounter).Value lngRowCounter = lngRowCounter + 1 Loop End Sub 

您可以将Sub的内容粘贴到您的macros函数中，也可以将该代码粘贴到macros模块的底部，并将一行代码Call Test放入macros中。

我希望这有帮助。