前几天，韩老师发了一个一分钟小视频“录入数据自动加边框”：
有朋友问：有没有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<>""：
设置格式，添加边框。即成！！
--------------------------------
韩老师自己的书，集合数万名粉丝朋友的企事业实际问题，精挑细选而著，欢迎各位朋友们品鉴：
韩老师正在更新专栏，这几天可以上新一折购买：
