Autofilter a Range, исключая две даты

У меня есть код ниже. В L1 я хочу выбрать все даты, кроме вчера и сегодня, и в M1 снять все. Я могу сделать то же самое в M1, но не смог выполнить действие в L1.

Range("L1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=12, Operator:= _ xlFilterValues, Criteria2:=Array(1, "2/11/2016", 1, "3/31/2016", 2, "4/5/2016", 2, _ "4/6/2016", 2, "4/7/2016", 2, "4/8/2016", 2, "4/11/2016", 2, "4/12/2016", 2, "4/13/2016", _ 2, "4/14/2016", 2, "4/15/2016", 2, "4/18/2016", 2, "4/19/2016", 2, "4/20/2016", 2, _ "4/21/2016", 2, "4/22/2016", 2, "4/25/2016", 0, "10/28/2015") Range("M1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=13, Criteria1:="=" 

Из комментариев пользователя:

У меня есть данные из столбца А в U. У меня есть много критериев для выбора в каждом столбце. В столбце L есть только даты. То, что я хочу достичь, – это отменить даты вчера и сегодня и выбрать все остальные даты. это оно. Моя задача будет завершена

В столбце L есть только даты. То, что я хочу достичь, – это отменить даты вчера и сегодня и выбрать все остальные даты. это оно.

Фильтр для всех дат, которые не сегодня или вчера.

 Option Explicit Sub notTodayOrYesterday() With Worksheets("Sheet5") If .AutoFilterMode Then .AutoFilterMode = False With .Cells(1, 1).CurrentRegion .AutoFilter Field:=12, Criteria1:=Format(Date, "\<\>mm/dd/yyyy"), _ Operator:=xlAnd, Criteria2:=Format(Date - 1, "\<\>mm/dd/yyyy") End With If .AutoFilterMode Then .AutoFilterMode = False End With End Sub 

Обратите внимание, что это было протестировано в компьютерной системе с региональными настройками MDY. Если это не работает для вас, а ваша система – DMY, измените формат даты.

not_today_yesterday
Перед применением Autofilter

not_today_yesterday
После применения Autofilter (до End Sub)

  • После двойного щелчка по excel только формат применяется к excel в npoi в C #
  • Получить количество дней между двумя датами этого формата в Excel
  • Применение DateFormat Date ко всему столбцу, где заголовок равен «Date» в Excel VBA
  • excel, сочетающий vlookup и некоторые сложные вычисления
  • Дата публикации Apache POI для строки
  • MONTH () для поиска по всей колонке
  • Разрешение VBA конвертировать различные форматы дат
  • запись старой даты с помощью apache poi
  • Не удается правильно отформатировать дату в VBA, Excel 2012
  • Excel неправильно преобразует диапазоны в даты, как их избежать?
  • Excel неправильно конвертирует Date в Int
  • Interesting Posts

    Использовать переменную из объекта в модуле с VBA

    Какое потенциально опасное обстоятельство можно избежать, назначив true элементу UserControl для приложения Excel ApplicationClass?

    Итерация через вложенные объекты с помощью VBJSON

    Код перестает работать без причины. Выброс пропавшего члена Исключение … почему?

    Скопируйте всю строку на другой лист на основе нескольких условий

    Excel-лист для iPhone-данных – точка A-точка B

    Сопоставьте ячейки из рабочего листа с столбцом в сводной таблице / VBA

    Excel VBA, функция countif

    Выполнение макрокоманды Excel, пытаясь упростить формулы

    Код Excel для привязки цвета ячеек диапазона к другому

    Отображение всплывающих уведомлений в excel

    Формулирование даты в Excel 2013

    Какая учетная запись используется при выполнении xp_cmdshell 'wmic … "java -jar …"'

    Excel – генерировать случайный номер на основе двух других столбцов

    Пробел проверяет предыдущую страницу и вставляет строки там Excel

    Давайте будем гением компьютера.