VBA事件代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Application.ScreenUpdating = True
End Sub
B列条件格式：
=(CELL("contents")=B1)*(CELL("col")=1)*(CELL("contents")<>"")