指定した列に罫線を引きたい

Question

VBAにて指定した列（I列）の２行目からデータが入っている最終行まで罫線を引きたいのですが、思うような動作になりません。

下記が現在のコードになります。

Sub 罫線()
    With Range("I2").CurrentRegion.Borders
        .LineStyle = xlContinuous
    End With
End Sub

皆様のご教授をお願いいたします。

Answer 1

1行目も入力されていて2行目から罫線にしたいのなら、

Sub 罫線()
    With Intersect(Range("I2").CurrentRegion, Range("2:" & Rows.Count)).Borders
        .LineStyle = xlContinuous
    End With
End Sub

Answer 2

思うような動作がどんなものかわかりませんが、たとえばこんな感じでどうでしょうか。

    With Range("I2").CurrentRegion.Borders.Item(xlEdgeLeft)
        .LineStyle = xlContinuous
    End With

Comments

[jjyso]

いつもありがとうございます。
おかげさまで、動作なりました。