在宏

Question

以下是我的代码。我正在搜索我的数组中的每个元素并过滤数据。之后，在不同的表格中搜索该元素。我想要那个，如果我正在寻找＆＃34;跳跃西装＆＃34;在第一种情况下，它过滤正确。但如果在第二张纸中搜索该元素，则会显示错误。因为在第二张纸名称中是＆＃34;连身衣＆＃34;。如何做＆＃34;跳跃西装＆＃34;可以搜索＆＃34;连身衣＆＃34;？

Dim Ar() As Variant
Ar() = Array("jump suit", "bikini")
Dim i As Variant
For Each i In Ar
Sheets("tops").Select
ActiveSheet.Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$1335").AutoFilter Field:=2, Criteria1:="*" & i & "*", Operator:=xlAnd
If ActiveSheet.AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Count - 1 > 0 Then
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Sheet1").Select
    Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Range("A1").Select
    Selection.Copy
    Selection.End(xlUp).Select
    Sheets("tops").Select
    Do
    ActiveCell.Offset(1, 0).Select
    Loop While ActiveCell.EntireRow.Hidden = True
    ActiveSheet.Paste
End If
Next i

Answer 1

根据我的评论，您可以使用

newString = Replace(i, " ", "")

这将取代空间。