Не знаете точный контекст, в котором это используется, так что, возможно, какое-то условное форматирование будет более стабильным?
Также не уверен, что вы имели в виду под "Устранить", поэтому следующий код просто окрашивает ячейку в красный цвет. .
в любом случае, надеюсь, этот код поможет вам начать:)
Sub Cell_Vaue_Check()
Dim row As Excel.Range
Dim cel As Excel.Range
For Each row In Sheets("Sheet1").Range("A1:C5").Rows '<<- Replace "Sheets("Sheet1").Range("A1:C5")" with the Sheet and Range you want to check
For Each cel In row.Cells
If cel.Value > Range("E" & cel.row).Value Then '<<- Replace "E" with the Column in which the check value is located
cel.Interior.Color = RGB(288, 0, 0) '<<- This line turns the cell Red. Replace it with whatever code you want depending on what "eliminate" means to you
End If
Next
Next
Set row = Nothing
Set cel = Nothing
End Sub
Если у кого-то есть какие-либо улучшения, пожалуйста, не стесняйтесь добавлять!