Необходимо скопировать строки из одного ws в другой на основе нескольких значений в одном столбце

Question

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

  'If value in column Y ends with "6100", copy to report sheet
        If c.Value Like "*6100" Then  

По сути, вместо 6100 мне нужно потянуть * 6100 и * 6200.Я не знаю, почему я не заставляю это работать.Любой простой способ изменить это?

Answer 1

Примерно так.

Несмотря на то, что при запуске автофильтра помечается значение True, если последние 4 цифры совпадают, эти два критерия могут быть более эффективными по времени, если ваш код занимает некоторое время

 If c.Value Like "*6100" Or c.Value Like "*6200" Then
 'do stuff
 Else
 'do other stuff
 End If

Answer 2

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

= IF (Q1087 <= 0,04167, «<1 час», IF (AND (Q1087 <= 0,2083, Q1087> 0,0416), «от 1 до 5 часов», IF (AND (Q1087 <= 0,4167, Q1087> 0,208) ), «От 5 до 10 часов», ЕСЛИ (И (Q1087 <= 1, Q1087> 0,4167), «10-24 часа», ЕСЛИ (И (Q1087 <= 2, Q1087> 1), «1–2 дня» , ЕСЛИ (И (Q1087 <= 5, Q1087> 2), "от 2 до 5 дней", ЕСЛИ (Q1087> 5, "> 5 дней", "")))))))