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

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

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

复制以下代码 到 上图的输入框里： 单击的代码： 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

保存后，在表格上单击/双击看看效果吧。 用完之后再按住Alt键+F11删除里面代码再保存表格