最終行に罫線を挿入

質問

A列からU列までの表があり、B列の最終行を基準にしてA列からU列までラインを引きたいのですが、
下記のように作成してみましたが、うまく作動しません。

REnd = Range("B65536").End(xlUp).Row + 1
Range(Cells(REnd.Row, "A"), Cells(REnd.Row, "U")).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With

回答No.1

tom04 · ベストアンサー

こんばんは！
外していたらごめんなさい。

A列には必ずデータが入るものとしています。
A列のデータが変更するたびにマクロを実行するようにしてみました。

操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので↓のコードをコピー＆ペーストしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Cells.Borders.LineStyle = xlNone
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(i, 1), Cells(i, 21)).Select
Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
Cells(i + 1, 1).Select
End Sub

こんな感じで良いのでしょうか？
参考にならなかったらごめんなさいね。m(__)m

お礼

ありがとうございます。
上手くいきました。