VBA /macros删除整行“只有公式”

如何删除所有只包含A列公式的行？ 我需要将其删除，以便在select范围或录制macros时不会有问题。

我试过了：

Selection.AutoFilter ActiveSheet.Range("$A:$L").AutoFilter Field:=1, Criteria1:="#REF!" Rows("720:720").Select Range(Selection, Selection.End(xlDown)).Select Selection.delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-27 ActiveSheet.Range("$A$1:$L$719").AutoFilter Field:=1 

和：

  Dim c As Range Dim SrchRng Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A1000000").End(xlUp)) Do Set c = SrchRng.Find("=+LEFT(#REF!,2)", LookIn:=xlValues) If Not c Is Nothing Then c.EntireRow.delete Loop While Not c Is Nothing 

但没有任何工作。 我尝试删除所有具有#REF或公式本身"=+LEFT(#REF!,2)"但仍然没有运气。

我需要删除只有公式的所有/整个行。 这些公式在Column A

Answer 1

请看下面的代码

 Sub DeleteFormulaCells() lastrow = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To lastrow If Range("A" & i).HasFormula() = True Then Rows(i).EntireRow.Delete lastrow = lastrow - 1 End If Next i End Sub 

Answer 2

尝试这个

 Sub DeleteRowsWithFormulas() ActiveSheet.Columns("A").SpecialCells(xlCellTypeFormulas).EntireRow.Delete End Sub