是靠谱，可用
代码粘贴到工作表的ThisWorkBook代码页中。可以对整个工作簿有效。楼主可能代码没放对地方。
如果改成如下，仅对一个工作表有效，添加代码方便点，直接点相应工作表标签，右键---查看代码，粘贴进行就行了：
Dim rng As Range
Const n = 3 '如有6列数据将3改为6即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = n + 1 Then
Set rng = ActiveCell.Offset(1, -n)
rng.Select
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024