仅粘贴值

Question

我创建了一个宏，仅将文本（如表格中的 Ctrl+Shift+V）粘贴到上次使用的单元格之后的下一个空单元格中，但它无法正常工作。

这是代码，我使用变量而不是 Range.PasteSpecial

Sub pasteSub()

    Dim baseSheet As Worksheet, nextCell As Range, lastRow As Long
    
    Set baseSheet = ThisWorkbook.Sheets("BASE")
    
    lastRow = baseSheet.Cells(baseSheet.Rows.Count, "D").End(xlUp).Row + 1
    
    Set nextCell = baseSheet.Cells(lastRow, "D")
    
    nextCell.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
End Sub

当到达

nextCell.PasteSpecial Paste:=xlPasteValues

行时，返回以下错误 Range 类的 PasteSpecial 方法失败。

Answer 1

也尝试另一个代码。如果您从 Excel 复制，您的变体将起作用。

On Error Resume Next
nextCell.PasteSpecial Paste:=xlPasteValues
baseSheet.PasteSpecial
On Error GoTo 0
Application.CutCopyMode = False