使用按钮两次后宏停止

Question

我有一个复制和插入新行的按钮。这里的问题是我只能在它给我一个 400 错误之前调用宏两次。关于如何解决问题有什么建议吗？

Sub AddNewRow()

    Dim r As Range
    Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
    r.Offset(-2).EntireRow.Copy
    r.Offset(-1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
    r.Offset(-2).EntireRow.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False

End Sub

*** 编辑 ***

我创建了一个删除按钮。只要我不创建超过 2 行，一切正常。当我按顺序创建 3 行时它崩溃了。

Sub DeleteLastRow()  
  
    Dim r As Range
    Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
    r.Offset(-2).EntireRow.Delete
    Application.CutCopyMode = False

End Sub

编辑在具有相同数据的同一文档中的另一个 sheet 上进行了尝试。它在那里完美地工作。什么样的设置会搞砸这个VBA？文档中没有其他 VBA。

编辑问题解决了。 (XFC;1048574) 中有一些杂散文本。删除文本后，该功能起作用了。

Answer 1

问题已解决。 XFC:1048574 中有一些文本。删除文字后问题解决。

使用按钮两次后宏停止

Macro stops after using button twice

excel

vba

button