VbA，选中单元格，给单元格加上边框

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

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

Sub 加边框()

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

End Sub

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

Sub 加边框2()

Sheet1.Range("C5:F15").Select

    With Selection

         .Borders.LineStyle = True

    End With

End Sub

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

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

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

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

6、仅供大家参考！