Показаны только первые 10000 уникальных элементов excel

Здравствуйте, уважаемые форумчане.

Проблема распространенная. Excel 2010 не фильтрует по критерию. Ссылается на то, что столбец содержит более 10000 уникальных элементов.

Прошерстил поиск данного форума. Лучшего ответа, чем

по ссылке

не нашел. Однако тема эта уже в архиве и добавлять там ответы нельзя. А уточнения имеются.

В прилагаемом файлике по столбцу U необходимо найти строки в реестре с буквосочетанием «цинк». Понятное дело, в прилагаемом файле это может сделать автофильтр, но в исходнике около 40 000 строк, и автофильтр отказывается там работать.

Так вот в архивной теме слэн и KuklP предложили хорошие решения. Однако есть недостатки или неверное применение кодов мной. Так например решение слэна (пост №32 в теме архива) не может фильтровать по всему содержимому строки (т.е. при вводе «цинк» «оцинкован» отобран не будет, а «цинкование» будет). Решение KuklP позволяет отбирать по содержимому всей ячейки, но перекидывает на отдельный лист, что для моих целей неудобно.

С учетом всего вышесказанного, прошу помочь решить задачку. В красной ячейке столбца U при вводе «цинк» должно отобраться 3 строки на этом листе. Код в данной ячейке должен уметь отбирать по диапазону, содержащему около 40000 строк.

Спасибо!

Sub Mfind(c As Range)
    Dim X As Range, r As Range, fA$
    If c.Text <> "" Then
        Sheets(2).UsedRange.Clear
        Set X = Me.UsedRange.Columns(c.Column).Find(c.Text & "*", LookAt:=xlPart)
        If Not X Is Nothing Then
            Set r = X
            fA = X.Address
            Do
                Set X = Me.UsedRange.Columns(c.Column).FindNext(X)
                Set r = Application.Union(r, X)
            Loop While Not X Is Nothing And X.Address <> fA
            r.EntireRow.Copy Sheets("Лист2").[a1]
            Me.[a2].Select
            Sheets("Лист2").Activate
        End If: End If
End Sub

И код из второго листа думаю не нужен. Я его убрал.

Вот теперь получилось, спасибо за разъяснение.

Но дело в том, что отфильтрованный материал попадает на новый лист. А мне нужно в исходном листе вносить изменения в отфильтрованных строках…

Возможно ли сделать так, чтобы отфильтрованные по условию строки отразились в исходном листе (лист1)?

На всякий случай прилагаю файл с кодом Hugo.

Я сам — дурнее всякого примера! …

Безусловно можно. Но хлопотно и это уже выйдет за рамки простой помощи на форуме.

А у меня бампер и подушка безопасности в машине. Зачем? По Вашей логике я должен все время тормозить об стены, столбы, чтоб оправдать работу изготовителей? Иначе это

?  
P.S. и вообще, в который уже раз пишу — форум не стол халявных заказов. Я показал Вам принцип, как это можно сделать — развивайте, делайте под свою хотелку. А если нет ни знаний, ни желания(времени и т.д.) ими овладевать, тогда прямая дорога именно в стол заказов, но

не халявных

:

http://www.planetaexcel.ru/forum/?PAGE_NAME=list&FID=7

Я сам — дурнее всякого примера! …

Здравствуйте, хотел обратиться с таким же вопросом, похожая ситуация только строк в листе около 150000 и нужно выбрать нужные строки на новый лист или книгу. Хотел воспользоваться макросом предложенным

KuklP

Private Sub Worksheet_Change(ByVal Target As Range)  
  If Target.Address <> [g3].Address Then Exit Sub
  Call Mfind([g3])
End Sub  

Sub Mfind(c As Range)  
  Dim X As Range, r As Range, fA$  
  If c.Text <> «» Then  
      Sheets(2).UsedRange.Clear  
      Set X = Me.UsedRange.Columns(4).Find(c.Text & «*», LookAt:=xlWhole)  
      If Not X Is Nothing Then  
          Set r = X  
          fA = X.Address  
          Do  
              Set X = Me.UsedRange.Columns(4).FindNext(X)  
              Set r = Application.Union(r, X)  
          Loop While Not X Is Nothing And X.Address <> fA  
          r.EntireRow.Copy Sheets(«Лист2»).[a1]
          Me.[a2].Select
          Sheets(«Лист2»).Activate  
      End If: End If  
End Sub  

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

Приложу пример своей урезанной таблицы (выбрать строки нужно по названию выделенным красным), может кто объяснит как его правильно использовать!

Прикрепленные файлы

Изменено: Денис Корсачёв — 17.12.2020 09:25:05