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 WithEnd Sub

4、个人比较喜欢第一种方法。这一句加到一个自动的过程里。Sub 宏1()Application.ScreenUpdating = F锾攒揉敫alseDim i As IntegerDim tt = TimerFor i = 1 To 3000 Step 1Range("A" & i) = iNextSheet1.Range("A1:A3000").Borders.LineStyle = TrueMsgBox ("程序运行了" & Format(Timer - t, "0.00" & "秒"))End Sub

5、Sheet1.Range("A1:A3000").Borders.LineStyle = True这一句里的“A1：A3000”也可以是变量。

6、仅供大家参考！