用于搜索单词+自动过滤器VBA的宏

Question

我正在创建一个宏来根据特定列中的单词搜索自动过滤矩阵（该列具有长文本-string-）。宏将复制自动过滤的单元格并将其粘贴到新书中。但是，我发现自动过滤排列所有单词的问题 - 比如关键词。

E.g。我使用“电路”这个词，只得到一行结果，但还有两行带有“电路”字样。如果我使用“电路”这个词，我就不会得到任何结果。

如何通过查找没有完全匹配的单词来编写我的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

非常感谢提前。

Answer 1

你快到了。

只需将此运算符添加到您的定义中即可：

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

提示：在“开发人员”标签上记录宏，然后更改自动过滤器以获取正确的代码。