Sub
DeleteG_eq_820()
Dim
lLastCol
As
Long
Dim
lLastRow
As
Long
Dim
rngDel
As
Range
Application.ScreenUpdating =
False
With
ActiveSheet
lLastCol = .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
lLastRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Range(.Cells(1, lLastCol), .Cells(lLastRow, lLastCol)).Formula =
"=IFERROR(IF(ABS(820-G1)<0.00000000001,0,ROW()),ROW())"
.Cells.RemoveDuplicates Columns:=lLastCol, Header:=xlNo
With
.Columns(lLastCol)
Set
rngDel = .Find(0, lookat:=xlWhole, LookIn:=xlValues)
If
Not
rngDel
Is
Nothing
Then
rngDel.EntireRow.Delete
.Delete
End
With
End
With
Application.ScreenUpdating =
True
End
Sub