VBA自动添加Excel工作表表格边框

VBA自动添加Excel工作表表格边框（VX公众号Excel潘谆白说VBA)

---

前言

在Excel工作表中设计表格，基本上都要添加边框，常用的方法基本上就是，先用鼠标拖动选中所有文字区域，再点击“边框”—“所有框线”。如果表格中文字占用区域较小，用鼠标拖拉就能快速选中所需区域并完成边框添加；假如数据量较多，需选中的区域较大，比如打印的话需要十几页甚至几十页，那么单就选中区域就很是费时费力，并且还是个技术活。我在拖选添加边框时，就经常手滑，要么途中松下了鼠标键，要么手误双击了鼠标，导致的结果就是要么多次重复添加边框直至完成，要么从头开始选中—添加边框。
那有没有更快更便捷添加边框的操作呢？一开始想的是用VBA代码自动选中工作表的文字区域，再手动添加边框；后来就觉得还是麻烦，更有了下面这句代码，只需要在ThisWorkbook对象内添加一行代码，便能动态自动添加工作表文字区域的边框。

---

一、代码

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous      '设置边框
End Sub

二、运行效果截图

可明显看到，它将工作表中上、下、左、右四角的文字区域两个极端单元格组成一个矩形，并添加边框。缺点是不论你是否需要，凡有文字的地方就有边框；亦或是优点，在打印工作表时，能提醒你，边角处还有数据，如不需要在打印前就应删除，以避免打印时浪费纸张。