VBA怎么删除数据自动去除边框

有朋友问：有没有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<>””：

即可达到效果。