前几天，韩老师发了一个一分钟小视频“录入数据自动加边框”：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 If
Next
End Sub

如下图：

结果如下：

条件格式

有些朋友说VBA太难了，看不懂代码，也想实现数据输入到哪里，哪个单元格就有边框，删除数据，边框自动消失。

也有办法，就是用条件格式：

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

然后在“开始”菜单中选择“条件格式”，在“使用公式确定要设置格式的单元格”，在“为符合此公式的值设置格式”输入入公式”=A1<>""：

设置格式，添加边框。即成！！

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

韩老师自己的书，集合数万名粉丝朋友的企事业实际问题，精挑细选而著，欢迎各位朋友们品鉴：

韩老师正在更新专栏，这几天可以上新一折购买：