Question

如何实现某单元格值变化时,另一单元格在原值上累加1

只要我在A1每输一次数字A2都能自己累加,假设A2的值是100,当A1的值变动时,A2就自动加1,为101,A1再次变动是再加1,为102,循环

Answer 1

这样？

 

代码

 

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    For Each c In Target.Cells
        With c
        For i = 1 To 1
         If Cells(i, 1) <> "" Then '判断是否A1输入数据.
          
          Cells(2, 1) = Cells(2, 1) + 1
            End If
                            
            Next
         End With
    Next
    Application.EnableEvents = True
End Sub