Excel VBA 質問スレ Part70

[530 デフォルトの名無しさん (ﾜｯﾁｮｲ c7cc-TNk6) 2021/04/30(金) 00:10:52.82 ID:G7lq05sG0]

これを短く書きたいのですが、どう書けばいいですか？
Range(Cells(r, 1),Cells(r, 10)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.CurrentRegion.Borders.LineStyle = xlContinuous