如何設置此範圍邊界？

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