VBA:Range 类的 PasteSpecial 方法失败

Question

我使用它来将订单从新订单页面移动到以前的订单页面，但是当我尝试运行它时，我收到标题错误。我已经看过几个不同的地方试图让它工作，我发现他们的应该工作，但我的不行。

Sheets("New_Orders").Range("B3:E29").Cut

Sheets("Previous_Orders").Range("B31").PasteSpecial Paste:=xlPasteValues

这是更多的代码，应该做同样的事情，但也不起作用

Sheets("New_Orders").Select
Range("B3:E29").Select
Selection.Cut
Sheets("Previous_Orders").Select
Range("B:B").Find("").Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

我也尝试过Selection.Copy。它给出了同样的错误

Answer 1

正如上面评论中所述，使用剪切时只能粘贴所有内容。如果只需要值，则直接分配值，然后清除范围。

Sub foo()
Dim rng As Range
Dim lastRow As Long

Set rng = Sheets("New_Orders").Range("B3:E29")
With Sheets("Previous_Orders")
    lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    .Cells(lastRow, 2).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
End With
rng.Clear
End Sub