搜索单词+自动过滤答案

【问题标题】：Searching a word + autofilter搜索单词+自动过滤
【发布时间】：2018-05-25 17:02:45
【问题描述】：

我想根据特定列中的单词搜索自动过滤矩阵（该列有长文本-string-）。

宏会复制自动过滤的单元格并将它们粘贴到新书中。我发现自动过滤排列所有单词（如关键字）的问题。

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

如何通过查找不完全匹配的单词来自动过滤排列？

这是我的代码的相关部分：

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

【问题讨论】：

你试过使用Criteria1:="*circuit*"吗？
Never rely on UsedRange
@嗨...我刚做了，但没有用。我得到了同样无用的结果。
@JohnyL 谢谢..我实际上改变了它。但是，我还不能解决我的问题。

标签： vba excel autofilter keyword-search

【解决方案1】：

你快到了。

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

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

提示：在“开发人员”选项卡上录制宏，并更改自动过滤器以获取正确的代码。

【讨论】：