我们可以通过Range对象中的Borders属性，同时设定单元格的4条边框。
当然，假如上下左右4个边框都一样，在设置过程中，就方便了许多，下面给你介绍与此相关的内容。
用法简单，可参照如下的格式：
Dim Myborder As Borders
Set Myborder = Range(单元格范围).Borders
第一行首先定义一个变量Myborder,第二行再设置边框。
下面看具体的示例代码
Dim Myborder As Borders
Set Myborder = Range(Z2).Borders
Myborder.LineStyle = xlContinuous
Myborder.Weight = xlMedium
Myborder.ColorIndex = 6
Range(G1:Y100).Borders.LineStyle = xlContinuous
前面五行是设置某个单元格的边框线，最后一句是设置某个范围的边框线。