我们要给excel单元格加边框，其实挺简单的，选中需要添加边框的单元格，点击开始选项卡下的框线就可以了。

我们应用vba的过程中，想要全自动的处理数据，并且给处理后的数据加上边框该怎么办？我这里有两种办法。第一种：不带任何的选择，直接给需要的单元格加边框。

Sub 加边框()

Sheet1.Range(C5:F15).Borders.LineStyle = True

End Sub

第二种：选择单元格语句，然后用with语句设置单元格边框。

Sub 加边框2()

Sheet1.Range(C5:F15).Select

With Selection

.Borders.LineStyle = True

End With

End Sub

个人比较喜欢第一种方法。这一句加到一个自动的过程里。

Sub 宏1()

Application.ScreenUpdating = False

Dim i As Integer

Dim t

t = Timer

For i = 1 To 3000 Step 1

Range(A i) = i

Next

Sheet1.Range(A1:A3000).Borders.LineStyle = True

MsgBox (程序运行了 Format(Timer - t, 0.00 秒))

End Sub

Sheet1.Range(A1:A3000).Borders.LineStyle = True

这一句里的“A1：A3000”也可以是变量。

仅供大家参考！