总新手在这里 . 需要帮助使这个简单的代码工作 . 每次运行宏时,我都需要它来查找目标行中的下一个打开的行并粘贴 . 显然,我第一次运行时,它可以工作,但下次它粘贴在上一个粘贴之上 . 我需要粘贴的行数会有所不同,因此需要检查空间,然后在每次运行代码时粘贴它复制的内容 .
Sub Save() Range("A19:I100").Copy Destination:=Range("N5:V1000") End Sub
提前致谢
尝试使用下一个代码:
Sub Save() Dim lastrow As Long lastrow = Cells(Rows.Count, "N").End(xlUp).Row Range("A19:I100").Copy Destination:=Range("N" & lastrow + 1) End Sub
1 回答
尝试使用下一个代码: