亟待解决：VBA Copy Values only 1004 错误？

如何解决亟待解决：VBA Copy Values only 1004 错误？

我有一个被多个用户使用的 excel 保护工作表，我发现他们有时会从阻止粘贴的单元格的不同应用程序复制和粘贴信息（同时更改其他格式）。

我发现的解决方案是在 ThisWorkbook 中使用一个宏来强制将副本作为值。 由于我在 VBA 方面没有太多经验，我决定使用互联网上的一些可用代码。 问题是 marco 在我的 Excel 中工作得很好，但在旧版本的 Excel 中无法正常工作（我需要它才能工作......）。

我收到 1004 错误。从我目前阅读的内容来看，我相信这是因为当我运行宏时剪贴板中的信息消失了。 有大佬知道怎么解决吗？

以下是我正在使用的代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object,ByVal Target As Range)
    Dim UndoString As String,srce As Range
    On Error GoTo err_handler    
    UndoString = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(UndoString,5) <> "Paste" And UndoString <> "Auto Fill" Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Undo
    If UndoString = "Auto Fill" Then
        Set srce = Selection
        srce.Copy
        Target.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks:=False,Transpose:=False
        Application.SendKeys "{ESC}"
        Union(Target,srce).Select
    Else
        Target.PasteSpecial Paste:=xlPasteValues,Transpose:=False
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
err_handler:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

解决方法

试试这个，已经插入了两行

Private Sub Workbook_SheetChange(ByVal Sh As Object,ByVal Target As Range)
    Dim UndoString As String,srce As Range
    On Error GoTo err_handler    
    UndoString = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(UndoString,5) <> "Paste" And UndoString <> "Auto Fill" Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Undo
    If UndoString = "Auto Fill" Then
        Set srce = Selection
        srce.Copy
        Target.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks:=False,Transpose:=False
        Application.SendKeys "{ESC}"
        Union(Target,srce).Select
    Else
        Selection.Copy 'This line has been inserted
        Target.PasteSpecial Paste:=xlPasteValues,Transpose:=False
        Application.CutCopyMode = False 'This line has been inserted
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
err_handler:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

这部分代码（Else 等）似乎仅适用于使用粘贴而非自动填充的情况。

我不认为使用 If 块来区分 UndoString = "Auto Fill" 和任何其他结果的优点，基于较早的 If 块只能包括以下情况最后一个可撤销的操作名称以（或曾经）Paste 开头。您不想对 Auto Fill 和 Paste 做同样的事情吗？