Добрый день знатокам!
Такая ситуация: есть столбец с энным количеством почтовых адресов. Есть задача найти/удалить некоторые из них. Для ускорения работы использую текстовый фильтр. Это позволяет найти/отобразить не более двух наборов адресов одновременно (выбираю, к примеру, "начинается с: Маркса ул., + "или" + начинается с: Энгельса). Но нужно ещё быстрее, т. к. адресов полно + такую операцию нужно произвести с кучей однотипных файлов (овер 50 шт.)
Не найдя фильтра, где можно было бы выбрать больше двух условий, решил записать макрос. В редакторе его "внутренности" выглядят так:
Результатом его работы закономерно явилось поочерёдное отображение девяти пар наборов адресов с остановкой на отображении последней пары. А мне надо, чтобы в итоге остались отображёнными ВСЕ адреса. Что нужно подправить в коде?
Такая ситуация: есть столбец с энным количеством почтовых адресов. Есть задача найти/удалить некоторые из них. Для ускорения работы использую текстовый фильтр. Это позволяет найти/отобразить не более двух наборов адресов одновременно (выбираю, к примеру, "начинается с: Маркса ул., + "или" + начинается с: Энгельса). Но нужно ещё быстрее, т. к. адресов полно + такую операцию нужно произвести с кучей однотипных файлов (овер 50 шт.)
Не найдя фильтра, где можно было бы выбрать больше двух условий, решил записать макрос. В редакторе его "внутренности" выглядят так:
| Код |
|---|
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:="=*37°*" _
, Operator:=xlOr, Criteria2:="=тест*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Промышленная ул., 3,*", Operator:=xlOr, Criteria2:= _
"=Промышленная ул., 3А,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Полевая ул., 1,*", Operator:=xlOr, Criteria2:= _
"=Полевая ул., 1А,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Видова ул., 34,*", Operator:=xlOr, Criteria2:= _
"=Видова ул., 36,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Анапское ш., 2*", Operator:=xlOr, Criteria2:= _
"=Анапское ш., 12,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Анапское ш., 60*", Operator:=xlOr, Criteria2:= _
"=Анапское ш., 62,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Луначарского ул., 1,*", Operator:=xlOr, Criteria2:= _
"=Луначарского ул., 2,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Стрелковая ул., 7,*", Operator:=xlOr, Criteria2:= _
"=Донская ул., 4,*"
ActiveSheet.Range("$A$1:$F$55000").AutoFilter Field:=5, Criteria1:= _
"=Донская ул., 4А,*", Operator:=xlOr, Criteria2:= _
"=Кутузовская ул., 37,*"
|
Результатом его работы закономерно явилось поочерёдное отображение девяти пар наборов адресов с остановкой на отображении последней пары. А мне надо, чтобы в итоге остались отображёнными ВСЕ адреса. Что нужно подправить в коде?
Изменено: - 27.01.2022 18:03:55
На третьем творит что-то разнообразное, смотря, что добавишь (excel365)
