对excel某一列中的单元格实现单击加1的功能

使用快捷键alt+F11，打开这个界面，并点击视图

进入代码窗口，将下面代码粘贴进去即可

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

    If Target.Column = 4 Then

        Target.Value = Target.Value + 1

    End If

End Sub

代码中的Target.Column = 4限定了代码的生效范围，如D列就是4，A列就是1.

行的范围同理，使用Target.Row = 4约束即可。

这一列中的每个单元格都可以分别单独点击加一。