复制并粘贴每第N行

Question

我需要一个宏，它将复制一个工作表中的一列并粘贴到每第五行的另一个电子表格中。我试过使用代码片段，但是我没有找到可以修改的代码来完成这项工作。这让我疯狂。我相信对于那些使用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的内容粘贴到您的宏功能，或者您可以在您的宏模块底部粘贴代码，并把线代码Call Test在你的宏里面。

我希望这会有所帮助。