Private Sub Worksheet_Change(ByVal Target As Range)For Each a In UsedRangeIf a <> "" Then a.Borders.LineStyle = xlContinuousElseIf a = "" Then a.Borders.LineStyle = xlNoneEndIfNextEnd Sub 如下图: 保存为启用宏的“.xlsm"文件。 这样能实现在工作表中输入数据自动加边框,如果数据删除,边框自动消失。 如下:另:如果你实在不想使用VBA,而想使整个工作表中单元格的边框会随着数据的添加与删除而自动添加或者去除,可以选中整个工作表设置条件格式。 选中整个工作表,只需点工作表左上角的行列交叉处的小三角,如图:然后在条件格式中输入入公式”=A1<>"": 即可达到效果。 ----------------------------------------