编写代码为：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column <> 1) Then
Cells(Target.Row, 1).Select
End If
End Sub
首先，按【ALT】+【F11】键，就能打开代码编辑窗口；
其次，我们看到代码窗口上方有两个下拉列表框，左边的是“Worksheet”，右边的是“SelectionChange”，这表示当前的代码写在Worksheet工作簿的Sheet1工作表的SelectionChange事件中；这个事件的触发条件是当前选中的单元格发生变化，也就是说如果之前你选中了A1单元格，那么现在如果你又左键单击选择了B1单元格，这个事件就会被触发，里面的代码就会被执行。这个事件还带了一个参数，名字叫“Target”，这个参数的类型是Range，即单元格区域类型，所以这个参数表示的是对当前最新被选中的单元格的引用。
那么我们是怎么实现上述程序的目的的呢？让我们继续看一看程序的代码，其中是一个分支判断选择结构的IF语句，判断的条件是：当前被选中的单元格所对应的列序号如果不是1（也就是说当前被选中的不是A列的单元格），如果条件成立那么就执行其中的代码，“Cells”是对工作表所有单元格集合的引用，有两个参数，第一个是表示行序号，第二个表示列序号，如果给定了这两个参数，那么也就是指定了在SHEET1工作表的所有单元格集合中符合当前给定行序号和列序号的唯一单元格的引用；看下这里指定的两个参数是什么呢？行序号被指定为当前被选中单元格所在行的行序号，列序号被指定为1，即A列单元格，那么现在就通过“Select”方法使由行序号和列序号两个参数指定的单元格集合中的这个单元格成为当前被选中的单元格。这样就实现了我们之前定义的这个程序的目的。
现在你可以尝试一下选中非A列单元格的操作，看看是否自动变为选中了同行的行首第一个单元格。
[