右键单击工作表底部标签，在弹出的快捷菜单中选择“查看代码”；在弹出的VB代码窗口中的左侧上边部位双击SHEET1；再将下面的代码粘贴到右边的空白区域。关闭VB代码窗口，回到工作表，你再试试。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim c, r As Integer
c = Target.Column
r = Target.RowIf c >= 2 And Cells(r, 1) = "" Then
Range("A1").SelectEnd IfEnd Sub...
