好みの列にフィルタをかけたいのですが・・？

質問

Windows XP　Home Edition
Excel　2002

変数関連の記述の仕方が間違っていると思いますが、
いろいろ試してみましたが、うまく実行できません。
何卒、ご教示お願い致します。

Sub オートフィルタtest()
Dim i As Long
Dim S As Range
Dim Sdown As Range

Set S = Selection.Cells(1, i)
Set Sdown = Selection.Cells(2, i)

Rows("6:6").AutoFilter

Sheets(1).Activate
Selection.AutoFilter Field:=i, Criteria1:=">=2", Operator:=xlAnd, _
Criteria2:="<3"

With Range(Sdown, Sdown.End(xlDown))
.Interior.ColorIndex = 40

End With
End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

ASIMOV

「i」の値が不定の様です
例えば、A列なら
　i=1
とし、フィルターを実行する前に入れます

＞いろいろ試してみましたが

では、判らない

「何」を、「どう」したら、「こう」なった、
本当は「こう」したいのだが．．

という具合に書いてください

お礼

大変申し訳ありませんでした。
画像を間違って削除してしまいましたので、
再度、同じ質問を投稿し直します。

有難うございました。

補足

ご回答、誠に有難うございます。
説明不足で申し訳ありませんでした。

添付画像は　Rows("5:5").AutoFilter
となっております、間違えました。

(1)図１の好みの「項目のセル１つ（例：い）」を手動で選択してから　　「質問のマクロ実行」します。
(2)次に、同様に好みの他の「項目のセル１つ」を手動で選択してから
　　(1)と同じ「質問のマクロ実行」します。
(3)次に、同様に好みの他の「項目のセル１つ」を手動で選択してから
　　(1)と同じ「質問のマクロ実行」します。
・
・
というように、繰り替えし実行したいのです。
（エクセルの繰り替えし機能が使えればよいのですが、当方のエクセルは使えないようでございます）
もちろん、選択する「項目のセル１つ」は４行目でもどこでも結構でございます。

よろしくお願い致します。