大神，Excel设置了一段宏，在网上拷贝的，不想应用在整个单元格，只想让这个宏在其中一列中运行，求指教

Question

代码如下：
做了一个问卷，想实现点击加1的功能，但是后面又有输入文本的部分，如果目前的代码，每次点击需要输入文本的部分就会提示运行错误，因为这个是整个Excel表格都可以用这个宏，其实加1的功能只需要应用在一个列就可以了，怎么更改代码呢？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Target + 1
End Sub

Answer 1

又不说锁定在哪一列，下面的以1列（A）为例，如果其他列请自己修改：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column=1 Then Target = Target + 1
End Sub

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub '设定C列，你要第几列就把3改成几
    Target = Target + 1
End Sub

Answer 3

是不是你保存 的时候没有保存这个宏了啊追问

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$4" Then
Target = Target + 1
End If
End Sub
改成这样以后，就只对D4单元格生效，但是我想让这个宏对D4列生效，怎么做，求解，我是小白，真不会