实现 Excel 单击/双击单元格自动加一

1、Excel 此功能一般用于以下情况

2、按住Alt键+F11键弹出宏编辑

3、复制以下代码 到 上图的输入框里：

单击的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target = Target + 1

End Sub

双击的代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target = Target + 1

End Sub

4、保存后，在表格上单击/双击看看效果吧。

用完之后再按住Alt键+F11删除里面代码再保存表格