在宏中使用微調搜索詞

以下是我的代碼。我正在從我的數組中搜索每個元素並過濾數據。之後，該元素將在不同的工作表中進行搜索。我想要的是，如果我在第一種情況下搜索「跳躍套裝」，那麼它正在過濾正確。但是如果在第二張紙上搜索到該元素，則會顯示錯誤。因爲在第二張表名是「連身褲」。如何做「跳投套裝」作爲「連身褲」搜索？在宏中使用微調搜索詞

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

來源

2016-12-01 mad2

你可以使用'newString =替換（我，「」，「」）'將取代一無所有的空間。 –

@TimWilkinson棒極了!!!!!!!非常感謝兄弟 – mad2

作爲回答，如果任何人有同樣的問題。 –

按我的意見，你可以使用

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

將取代一無所有的空間。

來源

2016-12-05 10:59:24

在宏中使用微調搜索詞

回答

相關問題