VBA循环复制黏贴，目标区域都被最后一次的粘贴板内容覆盖了？ vba编程代码大全

• excelvba 自动复制的新数据如何不覆盖最后一行
• vba中实现复制某区域单元格后向下连续黏贴的代码

excelvba 自动复制的新数据如何不覆盖最后一行

改一下最后的代码

Offset(-Len([a1]) > 0, 0)

改为Offset(IIF(Len([a1]) > 0,1,0), 0)

vba中实现复制某区域单元格后向下连续黏贴的代码

Sub 粘贴()

Range("a1:b21").Copy '假设你复制的a1到b21

For i = 1 To 100 Step 21 ' 这里的21就你所复制的单元格区域的最后一个单元格的行号

' 如果你要粘贴的区域最后一个单元格的行号大于100，你可以

' 根据自己的需要做相应的更改

Range("c" & i).PasteSpecial xlPasteAll '粘贴单元格区域

Next

End Sub

有什么问题可以继续追问，祝你成功！