clio

Sub µe®æ½u()
lra = Range("A3").End(xlDown).Row  '¦Û°Ê°»´ú
For M = 3 To lra      '±qA3®æ¶}©l

Range("A" & M & ":R" & M).Select     '½d³ò
   ActiveCell.CurrentRegion.Select      '¿ï¨úÀx¦s®æ½d³ò
                        
With Selection.Borders     'µe®æ½u
     .LineStyle = xlContinuous
     .Weight = xlThick
     .ColorIndex = xlAutomatic
End With
Next M
End Sub

Weight´N¬O³]©w½uªº²Ê²Ó