vba - PasteSpecial - 预期语句结束

Question

我有这个脚本可以将我的选择保存到另一个页面。我使用 cut 作为整理页面以进行下一个输入的一部分。

无论如何，我在 xlPasteValues 上尝试了几种变体但是继续收到预期的声明结束。

来自 Mr Excel我正在复制这个但是会产生错误。

Worksheets("Positions").Range("W2").PasteSpecial xlPasteValues

尝试了 udemy blog 的变体

wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues

我只是不明白这些实现如何没有遇到语句的结尾，而我的是。

Sub SaveShrinkage()

    Dim LRow As Long
    Dim ws As Worksheet
    Dim Newcastle_Shrinkage As Range
    Dim ToSite_Shrinkage As Worksheet

    Set ws = ThisWorkbook.ActiveSheet
    LRow = ws.Cells(ws.Rows.Count, 5).End(xlUp).Row

    Set Newcastle_Shrinkage = ws.Range("A6:E" & LRow)

    Set ToSite_Shrinkage = Worksheets("Site_Shrinkage")

    Newcastle_Shrinkage.Cut Destination:=ToSite_Shrinkage.Range("B" & ToSite_Shrinkage.UsedRange.Rows.Count + 1).PasteSpecial xlPasteValues

End Sub

Answer 1

如果您只需要这些值，则可以完全跳过使用剪贴板。只需直接设置值，然后清除源范围:

Sub SaveShrinkage()

    Dim LRow As Long
    Dim ws As Worksheet
    Dim Newcastle_Shrinkage As Range
    Dim ToSite_Shrinkage As Worksheet

    Set ws = ThisWorkbook.ActiveSheet
    LRow = ws.Cells(ws.Rows.Count, 5).End(xlUp).Row

    Set Newcastle_Shrinkage = ws.Range("A6:E" & LRow)

    Set ToSite_Shrinkage = Worksheets("Site_Shrinkage")

    With ToSite_Shrinkage
        Dim rowCount As Long
        rowCount = ToSite_Shrinkage.UsedRange.Rows.Count
        .Range(.Cells(rowCount + 1, 2), _
               .Cells(rowCount + Newcastle_Shrinkage.Rows.Count, 6)).Value = _ 
                   Newcastle_Shrinkage.Value
    End With
    Newcastle_Shrinkage.ClearContents

End Sub