你试试以下方法：右键点一格工作表的名字（在左下面，如Sheet1），查看代码，粘贴如下代码：Dim tmpRng As RangeDim xL, xT, xB, xR As IntegerPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If xL0 Then
With tmpRng.Borders(xlEdgeLeft)
.LineStyle = xL
.ColorIndex = xlAutomatic
End With
With tmpRng.Borders(xlEdgeTop)...
