Если столбец F = CRDI

И если какие-либо данные в столбце R равны "0"

Тогда столбцы S и T также должны быть "0"

... но иногда эти столбцы имеют ненулевые значения, которые входят в Просто нужно придумать макрос, чтобы избавиться от ненулевых значений, если выполнены 2 других условия.

Пожалуйста помоги....

Я на правильном пути вообще ????

Worksheets("EDW_Caxton_Rat_Extract_File_201").Select
Range("A1048576").Select
Selection.End(xlUp).Select

LastRow = ActiveCell.Row - 1

For x = 0 To LastRow

    If Range("F2").Offset(x, 0).Value = "CRDI" And Range("R2").Offset(x, 0) = 0 _
        And Range("T2").Offset(x, 0) <> 0 Then
            Range("T2").Offset(x, 0) = 0
            x = x - 1
    Next x
End If

1 ответ1

1

Это делает то, что вы описали в своем комментарии:

  • Фильтр Колонка 6 (F) на "CRDI"
  • Фильтр столбца 18 (R) на "0"
  • Установите (видимые) значения в столбцах S и T на "0" (не включая строку заголовка)

Option Explicit

Public Sub setZeroes()
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        .AutoFilter
        .AutoFilter Field:=6, Criteria1:="CRDI"
        .AutoFilter Field:=18, Criteria1:="0"

        .Range("S" & .Row + 1 & ":T" & .Rows.Count).Value2 = 0
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

До и после

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .