エクセルでデータがある部分だけ罫線で囲いたいです。

質問

エクセルでデータがある部分だけ罫線で囲いたいです。

エクセルのファイルを開いて、データのある部分だけを罫線で囲みたいです。
データーは常に列数も行数も違います。
マクロの記録で行ったら、以下のようになりました。
もう少し短い文章ではできないでしょうか？

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/9/22

'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).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

hananoppo · ベストアンサー

.Weight = xlThin
.ColorIndex = xlAutomatic
これらは省略できるので、次の一文だけでよいです。
Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous

お礼

完璧でした。
ありがとうございます。

回答No.2

myRange

CurrentReigonプロパティを使って一案。

'----------------------------------------
Sub test()
　　With Range("A1").CurrentRegion.Borders
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.ColorIndex = xlAutomatic
　　End With
End Sub
'---------------------------------------

以上です。

お礼

完璧でした。

ありがとうございます。

回答No.1

tomtomkun

条件付書式設定を使えば簡単なのでは？

対象となるセルの範囲全体を選択して、
条件付きの書式設定
セルの値が　　次の値に等しくない　　=""
書式　→　罫線　→　外枠

ご所望のイメージとは違いますか？

お礼

ありがとうございました。