Excel VBA - 激活后的下一行错误 Sheet

Question

我有一本 Excel 2013 年的练习册。

我正在使用这个 SO Answer for Copy and find next blank Row

我的密码是

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 是我的第一个 sheet 的输出，其中包含新格式化的数据。我将 DataSheet 设置为我的数据 sheet ("_data")，但是它在线上进行了调试。

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

如何才能完成将剪切数据粘贴到下一个空白行的 sheet？

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

Excel VBA - 激活后的下一行错误 Sheet

Excel VBA - Next Row error on Activated Sheet

excel

vba

excel-2013