展开全部
认真看了一下你的要求,不用VBA还真e68a8462616964757a686964616f31333335343961不能彻底解决。
打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。
测试效果和代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Dim i As Long
For i = 1 To UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Range("A" & i).Value <> "" Then
If Range("B" & i).Value = "" And Target.Row <> i Then
Range("B" & i).Select
Exit For
ElseIf Range("C" & i).Value = "" And Target.Row <> i Then
Range("C" & i).Select
Exit For
End If
End If
Next
Application.EnableEvents = True
End Sub