フィルタオプションの設定の条件における文字について
フィルタオプションの設定の検索条件範囲で指定した条件が半角・全角や大文字・小文字にかかわらず抽出するということはできますか?
商品情報というブックがあり、抽出シート(1枚目)と2枚目のシートにデータが入っています。
2枚目のシートのフィールド名を抽出シートのA1を基準に貼り付けています。
条件をA1:I3あたりに入力し、2枚目のシートの条件に合うものを抽出シートのA5以降に取り出すマクロを書いています。次回マクロを起動させたときにA5以降にデータがあれば削除させます。
いろいろな方に教えていただいて下記のようにできあがったのですが、ちょっと問題があって
質問しています。
Dim myRow1 As Long, myRow2 As Long
myRow1 = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row
myRow2 = Sheets("抽出").Range("A" & Rows.Count).End(xlUp).Row
If myRow2 >= 5 Then
Sheets("抽出").Range("A5:I" & myRow2).ClearContents
Sheets("抽出").Range("A5:I" & myRow2).ClearFormats
Sheets(2).Range("A1:I" & myRow1).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("抽出").Range("A1").CurrentRegion, _
CopyToRange:=Sheets("抽出").Range("A5"), Unique:=False
End Sub
現状では元データが全角だと半角で入力すると抽出されず、元データが小文字だと大文字は抽出されません。
いちいち元データの状態を把握しての検索になってしまいます。
このマクロを修正して全角・半角もしくは小文字・大文字にかかわらず抽出できるようにすることは可能でしょうか?
どなたかご存知の方がいらっしゃれば教えていただけないでしょうか?
お礼
完璧です。ありがとうございました。