刪除與＃REF每一行使用VBA

Question

我想刪除列A含#REF每一行

我的代碼只能與value工作，並且不會#REF工作。

Dim varFindThis As Variant 
Dim rngLookIn As Range 
Dim f As String 

varFindThis = Worksheets("Suivi2").Range("B1") 

Set rngLookIn = Worksheets("Suivi2").Range("A:A") 

If Not rngLookIn.Find(varFindThis, LookIn:=xlValues) Is Nothing Then 

    f = Worksheets("Suivi2").Range("B1").Value 

'Since i didn't got that clear, here above you must create a code to declare "f" as whatever you want 

    Set c = Worksheets("Suivi2").Range("A:A").Find(f) 
     Worksheets("Suivi2").Range(c.Address).EntireRow.Delete 

End If 

Answer 1

您可以使用Range.SpecialCells method快速找到Worksheet.UsedRange property內的所有錯誤。

on error resume next 
with Worksheets("Suivi2").Columns(1) 
    if not .specialcells(xlCellTypeFormulas, xlErrors) is nothing then _ 
     .specialcells(xlCellTypeFormulas, xlErrors).EntireRow.Delete 
end with 
on error goto 0