|
▼フィルター さん:
こんにちは〜。
>次の様にしました。Fは6列目なので5→6AJは36にしてみました。
>例として、F列(6列目)に入っているデータを検索しましたが、
> エラーは出ませんでしたが、フィルターされていませんでした。
> 具体的には、F列三島と入っているデータが3行目に入っていますが、
> これをテキストボックスに*三島*と入れて検索すると、
> フィルターをうまく通れば3行目のみがリストボックスに表示されますが、
> その様に動作せず今入っている全データの行が表示されます。
それじゃだめです。
よく読んでみてください。
ぼくは こう書きました。
↓
> With Worksheets("DATA").Range("A1").CurrentRegion
> For i = 5 To 35 Step 6
> With .Columns(i).Resize(, 5)
> .AutoFilter 2, ss
これは、
第5列〜第35列目まで 6列おきに、
指定列から右に全5列の範囲に対して、
指定範囲の「第2列目」の値が 文字列ss を含むものを抽出する
という命令です。
ですから、最初のフィルタ範囲は 第5列(E列)〜 第9列(I列)までが
最初のフィルタ範囲です。
E F ▼ G H I J K L ・・・
エンド ID 種別1 種別2 種別3 種別4
この列範囲の 「第2列目」「ID」列に対して、
言い換えれば、
E列〜I列範囲の 「第2列目」である F列から
> F列三島
> これをテキストボックスに*三島*
を検索するわけです。
※ やばい、
> With .Columns(i).Resize(, 5)
ここは、
With .Columns(i).Resize(, 6)
でないと、全6列 でなかったですね。すみません。注意力散漫でした。
|
|