如何设置此范围边界？

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