【原】Excel | VBA(8)——工作表输入数据自动加边框，删除数据自动去除边框

一起来学office，提高办公技能

问题情境

前几天，韩老师发了一个一分钟小视频“录入数据自动加边框”：Excel数据录入自动加边框，有朋友问：有没有VBA方法，可以使得整个工作表录入数据时自动加边框？

韩老师今天将代码写在这里。

VBA实现

打开VBA窗口，输入代码：

Private Sub Worksheet_Change(ByVal Target As Range)For Each a In UsedRange If a <> "" Then a.Borders.LineStyle = xlContinuous ElseIf a = "" Then a.Borders.LineStyle = xlNone End IfNextEnd Sub

如下图：

保存为启用宏的“.xlsm"文件。

这样能实现在工作表中输入数据自动加边框，如果数据删除，边框自动消失。

如下：

另：如果你实在不想使用VBA，而想使整个工作表中单元格的边框会随着数据的添加与删除而自动添加或者去除，可以选中整个工作表设置条件格式。

选中整个工作表，只需点工作表左上角的行列交叉处的小三角，如图：

然后在条件格式中输入入公式”=A1<>""：

即可达到效果。

----------------------------------------