Excel VBA-激活工作表上的下一行錯誤

Question

我有一個Excel 2013工作簿。

我正在使用此SO答案進行復制並找到下一個空白行

我的代碼是

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”），但是它進入了調試行。

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