Excel2003枠を作るマクロ

右側に空白の行を一つつくって枠を作りたいです。
たとえば、G１００が一番右下とするとH100まで枠を作りたいのですが、きれいにかくにはどうしたらよいでしょうか？
マクロ記録でやると、下のようになるのですが右下が１００で有るとは限らないのでその行を定義する必要があると思うのですが、そのあたりがさっぱりわかりません。
よろしくお願いいたします。

Sub Macro1()

Selection.End(xlDown).Select
Range("H100").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

No.3 ベストアンサー 回答者： kybo 回答日時： 2011/02/05 12:59

G列の最終行で判断するのであれば、以下の1行で出来ます。

Sub macro()
Range("A1:H" & Range("G" & Rows.Count).End(xlUp).Row).Borders.Weight = xlThin
End Sub

この回答へのお礼

ご回答ありがとうございました。
思っていた以上にすばらしい考え方でした。

お礼日時：2011/02/05 14:48

No.2 回答者： beeba 回答日時： 2011/02/05 11:04

A1から右下のセルまでデータが入っていると想定して、

Sub Macro2()

Range("A1").CurrentRegion.Select
Selection.Resize(, Selection.Columns.Count + 1).Select
Selection.Borders.LineStyle = xlContinuous

End Sub

No.1 回答者： beeba 回答日時： 2011/02/05 11:02

A1からG100にデータが入っていると想定して、

Sub Macro2()

Range("A1").CurrentRegion.Select
Selection.Resize(, Selection.Columns.Count + 1).Select
Selection.Borders.LineStyle = xlContinuous

End Sub