某单元格 每变化 一次 ，另一个单元格 都增加1

注意：单元格变化是指：只要单元格 被点击 就算变化，与单元格内容是否变化无关。

 

 

 完整代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim H As String
H = "A2" 'A2表示 待变化 的 单元格
If Target.Cells(1, 1).Address(0, 0) = H Then
    Range("B2") = Range("B2") + 1 'B2表示 变化次数  展示在 B2单元格
End If

End Sub