この範囲の枠線を設定するにはどうすればよいですか？

Question

このような枠を設定したいと思います。絵のような効果を行うことができない

私のコードは、中間この境界厚さ（縁なし）空です。

範囲はA4:B30です。

With Range(Cells(6, 1), Cells(row, 2))' row is second last row 
    .Borders.LineStyle = xlContinuous 
    .Weight = xlHairline 
End With 

私の範囲内のセルの中間の薄い境界線を得るにはどうすればよいですか？

Answer 1

外観上の変更を行う場合は、常にマクロの記録とコードの読み取りをお試しください。それが最善の方法です。 :)

Sub testBorders() 

With Range(Cells(6, 1), Cells(30, 2)).Borders(xlEdgeRight) 
'/(xlEdgeRight) sets the border only to right most cells 
.LineStyle = xlContinuous 
.Weight = xlMedium '/ as per your pic you are looking for medium weight. 
End With 

End Sub