时间戳

首页 > 解决方案 > 搜索单词+自动过滤

vba - 搜索单词+自动过滤

问题描述

我想根据特定列中的单词搜索自动过滤矩阵（该列有长文本-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

标签： vbaexcelautofilterkeyword-search

解决方案

你快到了。

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

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

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

推荐阅读