Excel “错误”;删除范围类的方法失败";

Excel “错误”;删除范围类的方法失败";,excel,vba,Excel,Vba,我试图在工作表中查找并删除以值“#”开头的行,每次尝试删除找到的行时都会出现以下错误 删除范围类的方法失败1004“ 我刚刚测试了你的代码,它工作正常,你能分享你的工作表数据并指出你在哪一个实例中遇到这个错误吗?那一行中有没有合并的单元格?或者像ActiveX控件或按钮之类的控件?这一行中有没有数据透视表或ListObject表?你能手动删除这一行吗?请检查。是的,有一行是我参与的不能手动删除。谢谢!我刚刚测试了你的代码,它工作正常。你能分享你的工作表数据并指出你在哪一个实例中遇到这个错误吗?那

我试图在工作表中查找并删除以值“#”开头的行,每次尝试删除找到的行时都会出现以下错误

删除范围类的方法失败1004“


我刚刚测试了你的代码,它工作正常,你能分享你的工作表数据并指出你在哪一个实例中遇到这个错误吗?那一行中有没有合并的单元格?或者像ActiveX控件或按钮之类的控件?这一行中有没有数据透视表或ListObject表?你能手动删除这一行吗?请检查。是的,有一行是我参与的不能手动删除。谢谢!我刚刚测试了你的代码,它工作正常。你能分享你的工作表数据并指出你在哪一个实例中遇到这个错误吗?那一行中有没有合并的单元格?或ActiveX控件或按钮之类的控件?这一行中有没有数据透视表或列表对象表?你能手动删除这一行吗?请是的,有一行我无法手动删除。谢谢!
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim FoundCell As Range
    Set wb = ActiveWorkbook
    Set ws = ActiveSheet

        Const WHAT_TO_FIND As String = "#*"

        Set FoundCell = ws.Range("B:B").Find(What:=WHAT_TO_FIND)
        If Not FoundCell Is Nothing Then
            MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
            'MsgBox (FoundCell.Row)
            FoundCell.EntireRow.Delete ' giving error "delete method of range class failed" here.
        Else
            MsgBox (WHAT_TO_FIND & " not found")
        End IF