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