求单元格内容修改次数统计

Javin7

当B3:B22 区域单元格内容修改时，C3:C22 统计出单元格修改的次数（不重复的次数，如果觉得不重复会复杂一点，就重复也可以算进去）
谢谢了

Javin7

我尝试过要在change事件中循环，也没有结果，是不是已经用事件就不用循环了？

一把小刀闯天下

Option Explicit

Dim last, sum

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 3 Or Target.Row > 22 Or Target.Column <> 2 Then Exit Sub
    If Not IsArray(last) Then ReDim last(1 To 20, 1 To 1): sum = last
    If Target <> last(Target.Row - 2, 1) Then
      last(Target.Row - 2, 1) = Target
      sum(Target.Row - 2, 1) = sum(Target.Row - 2, 1) + 1
      [c3].Resize(UBound(sum, 1)) = sum
    End If
End Sub

Sub reset()
  ReDim last(1 To 20, 1 To 1): sum = last
End Sub

Javin7

一把小刀闯天下 发表于 2018-9-29 10:52
Option Explicit

Dim last, sum

非常感谢！
虽然看不怎么懂，特别是 ReDim last(1 To 20, 1 To 1): sum = last（不明白这个重新声明啥意思）
不过能用上先，以后慢慢消化，非常感谢！

Javin7

一把小刀闯天下 发表于 2018-9-29 10:52
Option Explicit

Dim last, sum

但是大神，出现两个问题：
1. 当删除target区域内容时出现错误，怎么去除呢
2. 当内容填上后，就出现1次，怎么实现去修改的时候才出现第1次呢

Javin7

Javin7 发表于 2018-9-29 11:24
但是大神，出现两个问题：
1. 当删除target区域内容时出现错误，怎么去除呢
2. 当内容填上后，就出现1 ...

3. 怎么样当删除target内容时，次数清零呢

一把小刀闯天下

Option Explicit

Dim last, sum

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 3 Or Target.Row > 22 Or Target.Column <> 2 Or _
    CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub
    If Not IsArray(last) Then reset
    If Len(Target) = 0 Then
      sum(Target.Row - 2, 1) = 0
      Target.Offset(, 1) = ""
      Exit Sub
    End If
    If Target <> last(Target.Row - 2, 1) Then
      If Len(last(Target.Row - 2, 1)) > 0 Then
        last(Target.Row - 2, 1) = Target
        sum(Target.Row - 2, 1) = sum(Target.Row - 2, 1) + 1
        [c3].Resize(UBound(sum, 1)) = sum
      Else
        last(Target.Row - 2, 1) = Target
      End If
    End If
End Sub

Sub reset()
  ReDim last(1 To 20, 1 To 1): sum = last
End Sub

Javin7

一把小刀闯天下 发表于 2018-9-29 12:24
Option Explicit

Dim last, sum

万分感谢！