VBA для фильтрации ячеек в строке на основе другого значения ячейки в той же строке - PullRequest
0 голосов
/ 05 февраля 2020

У меня есть лист Excel с номерами в каждой ячейке. Я хочу исключить ячейки, содержащие значения, которые больше значения специфика c, различного для каждой строки, например, на рисунке

enter image description here

Я хочу удалить все ячейки в определенной строке, значения которых больше, чем в ячейке BL.

1 Ответ

0 голосов
/ 05 февраля 2020

Не знаете точный контекст, в котором это используется, так что, возможно, какое-то условное форматирование будет более стабильным?

Также не уверен, что вы имели в виду под "Устранить", поэтому следующий код просто окрашивает ячейку в красный цвет. .

в любом случае, надеюсь, этот код поможет вам начать:)

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

Если у кого-то есть какие-либо улучшения, пожалуйста, не стесняйтесь добавлять!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...