Макрос для поиска слова + автофильтр VBA - PullRequest
Новая
       41

Макрос для поиска слова + автофильтр VBA

0 голосов
/ 25 мая 2018

Я создаю макрос для автофильтрации матрицы в соответствии с поиском слов в определенном столбце (столбец содержит длинные тексты -string-).Макрос копирует автофильтрованные ячейки и вставляет их в новую книгу.Тем не менее, я нахожу проблему с автофильтрацией аранжировки для всех слов, как ключевое слово.

Например, я использую слово "схема" и получаю только одну строку с результатами, но есть две дополнительные строки со словом«схема».Если бы я использовал слово «схемы», я не получил никакого результата.

Как я могу написать свой VBA-код для автофильтрации соглашения, найдя слово без точного соответствия?

Этосоответствующая часть моего кода: 

Sub Enviardatosfiltrados()
Dim wbLibroActual As Workbook
Dim wsHojaActual As Worksheet
Dim RangoDatos As Range
Dim uFila As Long
Dim wbLibroNuevo As Workbook


Set wbLibroActual = Workbooks(ThisWorkbook.Name)
Set wsHojaActual = wbLibroActual.ActiveSheet

Set RangoDatos = wsHojaActual.UsedRange

RangoDatos.AutoFilter Field:=22, Criteria1:="=*" & "circuit" & "*"

 uFila = wsHojaActual.Range("A" & Rows.Count).End(xlUp).Row

Большое спасибо заранее.

...