的步骤如下:
Selection.Copy
ActiveSheet.Paste
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set pasteRange = Range("A" & lastRow + 1)
pasteRange.Resize(Selection.Rows.Count, Selection.Columns.Count).Value = Selection.Value
这样,选定的数据将被复制并粘贴到新工作簿中的指定位置,并且范围将被设置为最后一行的下一行。
对于VBA Excel的更多信息和学习资源,您可以参考腾讯云的Excel VBA开发文档:Excel VBA开发。
领取专属 10元无门槛券
手把手带您无忧上云