这种问题应该不能用公式来实现，只能通过VBA，写代码来实现。
下面的是我写的一段代码：你可以复制到VBA中
模块中的代码：
Sub aa(myCells As Range)If myCells.Count <> 1 Then GoTo myendIf myCells.Column = 1 Then If myCells.Value = 1 Or myCells.Value = "" Then Cells(myCells.Row, myCells.Column + 1) = "" Else Cells(myCells.Row, myCells.Column + 1) = 0 End IfEnd Ifmyend:End SubSub bb(myCells As Range)If myCells.Count <> 1 Then GoTo myendIf myCells.Column = 2 Then If Cells(myCells.Row, myCells.Column - 1).Value <> 1 Then Cells(myCells.Row, myCells.Column - 1).SelectEnd Ifmyend:End Sub
然后在工作表事件中调用上面的代码。如：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Call bb(Target)End SubPrivate Sub Worksheet_Change(ByVal Target As Range)Call aa(Target)End Sub
