セルをダブルクリックするとフィルタリングしてくれるマクロですが意味を理

質問

セルをダブルクリックするとフィルタリングしてくれるマクロですが意味を理解しようとしましたが理解できません（＞へ＜）どなたか意味を教えてください！

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim i As Integer
For i = 1 To 256 Step 1
If ActiveSheet.Range("a2").Offset(0, i - 1).Value = "" Then Exit For
Next
If Target.Row > 1 And Target.Column < i Then
ActiveSheet.Range("a2").AutoFilter Field:=Target.Column, Criteria1:=Target.Value
ActiveSheet.Range("a1").Select
Else
ActiveSheet.Range("a2").AutoFilter
ActiveSheet.Range("a2").AutoFilter
ActiveSheet.Range("a1").Select
End If

End Sub

回答No.1

hoiho14000 · ベストアンサー

For i = 1 To 256 Step 1
If ActiveSheet.Range("a2").Offset(0, i - 1).Value = "" Then Exit For

2行目の列を検索して最後の列を探す
（でもコードが変！　それならば　250 to 1 にするか　offset(0,i +1)にしなければいけない

f Target.Row > 1 And Target.Column < i Then
選択したセルが1行目以降かつ（1行目は入らない）先ほど探した最終列よりも左側であったら
コードを実行　
その条件でなかったら　オートフィルターを解除

条件が一致してたら

オートフィルターを設定

補足

おぉぉ！さすがです！質問なんですがFOR～NEXTの関数がいまいち分かりません。For i = 1 To 256 Step 1　はどういうことですか？

構文は

Dim カウンタ変数 As データ型
For カウンタ変数 = 初期値 To 最終値 (Step 加算値)
　　 繰返し実行する処理
Next (カウンタ変数)

と知りましたが250 to 1の意味が分かりません(>ヘ<)教えてください！
それと最終列を探すif Target.Row > 1 And Target.Column < i Thenですがこれはデータがあるセルの最終列という意味ですか？