Поиск содержания ячеек, удовлетворяющих диапазону и выгрузка строк или удаление лишних.

[tibhar940]

Сообщение от kuklp

Совет, так совет. Считываете диапазон в массив. В цикле проверяете соответствие условию по двум столбцам с оператором or. При выполнении условия увеличиваете счетчик на 1 и заносите в этот же массив данные двух столбцов в строку с номером счетчика. После обработки всего массива выгружаете его на лист с resize(счетчик,2).
Но мне гораздо легче было бы написать макрос в Вашем примере, чем сочинять эти объяснения:-)

Ну если вы напишете макрос, то это будет просто замечательно. Потому что у меня пока что знаний не хватает (а посмотрев на макрос, я бы уже понял).

Вот к примеру во вложении файл.
Из всех строк нужно оставить только те, в которых хотя бы одно значение из столбца A или C входит в диапазон от 16.07.2012 21:33:10 до 16.07.2012 21:40:10

[staniiislav]

ну и так можно:
Короче вариантов просто уйма

[DiemonStar]

Например так:

[tibhar940]

Сообщение от DiemonStar

Например так:

Спасибо, но у меня настройки приватности не допускают запуска из заготовленной вами книги. Но я могу скопировать код. Могли бы объяснить принцип действия?

[kuklp]

Ну и мой, в модуль листа:

Public Sub www()
    Dim a, n&, i&, d As Date, d1 As Date
    a = UsedRange.Value
    d = CDate("16.07.2012 21:33:10"): d1 = CDate("16.07.2012 21:40:10")
    For i = 1 To UBound(a)
        If a(i, 1) >= d And a(i, 1) <= d1 Or a(i, 3) >= d And a(i, 3) <= d1 Then _
         n = n + 1: a(n, 1) = a(i, 1): a(n, 3) = a(i, 3)
    Next
    [g6].Resize(n, 3) = a
End Sub

[DiemonStar]

Могли бы объяснить принцип действия?

В программе есть так называемый расширенный фильтр. Работает по заголовкам столбцов и таблице критериев отбора.
Если в критериях условия находятся в одной строке, то эти условия работают вместе, если же в разных строках, то отбор производится при выполнении одного из них.

[tibhar940]

Сообщение от DiemonStar

В программе есть так называемый расширенный фильтр. Работает по заголовкам столбцов и таблице критериев отбора.
Если в критериях условия находятся в одной строке, то эти условия работают вместе, если же в разных строках, то отбор производится при выполнении одного из них.

Огромное спасибо. Во всём разобрался. В принципе проще в ручную через расширенный фильтр делать. Такой вопрос - а возможно ли это реализовать без вписывания значений в ячейки, описав интервал в коде?