Excel VBA – 激活的工作表上的下一行错误

我有一个Excel 2013工作簿。

我正在利用这个SO答案复制，并find下一个空白行

我的代码是

Sub Save() Dim NextRow As Range Set CopyZone = Worksheets("Sheet1").Range("A2:AO289") Set ToDataSheet = Worksheets("_data") Set NextRow = Range("B" & ToDataSheet.UsedRange.Rows.Count + 1) CopyZone.Cut ToDataSheet.Activate NextRow.PasteSpecial Paste:=xlValues, Transpose:=False Application.CutCopyMode = False Set NextRow = Nothing End Sub 

Copyzone是我的第一张表格的输出，它具有新格式的数据。 我将DataSheet设置为数据表（“_data”），然而它在线上进行debugging。

 NextRow.PasteSpecial Paste:=xlValues, Transpose:=False 

我怎样才能完成将剪切的数据粘贴到下一个空行的表单上？

Answer 1

希望下面的代码解决您的问题

 Sub Save() Set CopyZone = Worksheets("Sheet1").Range("A2:AO289") Set ToDataSheet = Worksheets("_data") CopyZone.Cut Destination:=ToDataSheet.Range("B" & ToDataSheet.UsedRange.Rows.Count + 1) End Sub