マクロでトリムを使って単語を検索する

Question

以下は私のコードです。私は配列から各要素を検索し、データをフィルタリングしています。その後、その要素は別のシートで検索されます。私はそれが欲しい、もし私が最初のケースで "ジャンプスーツ"を探していれば、それは正しくフィルタリングされている。しかし、その要素が2番目のシートで検索されると、エラーが表示されます。 2番目のシート名は「ジャンプスーツ」です。どのように "ジャンプスーツ"を "ジャンプスーツ"として検索可能にするか？私のコメントを1として

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, " ", "") 

を使用することができます。