如何用VBA统计Excel指定区域内各单元格的点击次数？

原代码存在的问题 #

• 每次循环强制将xNum重置为0，无法实现累计计数
• 遍历所有目标单元格的逻辑冗余，只需判断当前选中单元格是否在目标范围内即可
• 未保留单元格原有计数，每次点击都从1开始，无法实现累加

修正后的VBA代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 定义需要统计点击次数的单元格范围
    Dim targetRange As Range
    Set targetRange = Me.Range("A1:B2")
    
    ' 仅处理单个单元格选中且在目标范围内的情况
    If Not Intersect(Target, targetRange) Is Nothing And Target.Cells.Count = 1 Then
        ' 读取当前计数，为空则初始化为0
        Dim currentCount As Integer
        currentCount = IIf(IsEmpty(Target.Value), 0, Target.Value)
        ' 计数加1并写入单元格
        Target.Value = currentCount + 1
    End If
End Sub

使用步骤 #

• 打开目标Excel文件，按下Alt + F11打开VBA编辑器
• 在左侧工程面板中找到对应的工作表（如Sheet1），双击打开代码窗口
• 将上述代码粘贴到窗口中，保存文件为**启用宏的工作簿（.xlsm）**格式
• 返回工作表，点击A1、A2、B1、B2单元格，即可实时看到点击次数累加

内容的提问来源于stack exchange，提问作者dityo