如何用vba实现自动循环复制前面的行？

发布网友发布时间：2022-04-22 11:26

共2个回答

热心网友时间：2023-11-03 04:33

用以下代码可实现：
Sub MCOPY()
Rows("1:2").Copy'将第1/2行数据复制到粘贴板中
For i = 1 To 100'循环100次
Range("A" & i * 2 + 1).PasteSpecial‘从第“A3"开始，每隔一个（即A3、A5、A7...)粘贴粘贴板中的数据
Next
End Sub

这里需要讲解的一点小知识就是，在Excel中复制行时，可以选择第一个单元格进行粘贴，就能粘贴整行内容。

热心网友时间：2023-11-03 04:34

以下代码满足你的要求，此程序复制100次，改变此数满足你的次数即可
Sub MyCopy()
Rows("1:2").Copy
For i = 1 To 100
Range("A" & i * 2 + 1).PasteSpecial
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com