首页 文章

Excel 2007复制范围值并粘贴到另一个范围(同一工作表)第一个空行

提问于
浏览
1

总新手在这里 . 需要帮助使这个简单的代码工作 . 每次运行宏时,我都需要它来查找目标行中的下一个打开的行并粘贴 . 显然,我第一次运行时,它可以工作,但下次它粘贴在上一个粘贴之上 . 我需要粘贴的行数会有所不同,因此需要检查空间,然后在每次运行代码时粘贴它复制的内容 .

Sub Save()
Range("A19:I100").Copy Destination:=Range("N5:V1000")
End Sub

提前致谢

1 回答

  • 0

    尝试使用下一个代码:

    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
    

相关问题