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
有什么问题可以继续追问，祝你成功！