エクセルでは自動は無理だと思うのですが・・・（罫線編）

質問

たびたびすみません。excel達人先生方、よろしくご教示お願いします。

（要件）
表の終端まで、データを入れた時点で自動的に罫線を引きたい。
（列方向の項目数は固定。行方向が可変）

（自分なりの努力結果）
行方向のデータをカウントして、その数値を基に罫線を自動的に引くところは作れましたが、ここでギブアップ。
例えばＡ列になんらかのデータがはいったら、そこを終端と認識し、そこまでの表に罫線を自動的に引くことはできないでしょうか？
以下、努力結果。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varValue As Variant

'セルA1の値の取得
If Target.Address <> "$A$1" Then Exit Sub 'A1以外のイベントは無視
varValue = Range("A1").Value
Cells.Borders.LineStyle = xlLineStyleNone '罫線クリア

'数値変換
If IsNumeric(varValue) = False Then Exit Sub '数値以外の時は処理を抜ける
varValue = Int(CLng(varValue)) '強制的に整数に変換しています。

'エラーチェック
If varValue > 255 Then
MsgBox "数値が大きすぎます。", vbCritical
Exit Sub
ElseIf varValue = 0 Then
Exit Sub
ElseIf varValue < 0 Then
MsgBox "数値が小さすぎます。", vbCritical
Exit Sub
End If

'罫線処理
With Range(Cells(1, 2), Cells(varValue + 1, 21)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub

回答No.1

n-jun · ベストアンサー

With Range(Cells(1, 2), Cells(varValue + 1, 21)).Borders
　　　↓
With Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp).Resize(, 20)).Borders

回答No.3

n-jun

ANo.1です。

Ａ列という条件を見落としてましたのでスル～して下さい。

回答No.2

grumpy_the_dwarf

A1に条件書式で「数式が」=count($A1:$A$65536) で罫線で囲み、列
全体にペーストする。