从VBA集合中获取重复值的数量

Question

这是实际的单元格值

以下是我创建Collection

的方法

For Each Cell In ActiveSheet.UsedRange.Cells
    If Cell.HasFormula Then
        CellTags() = Split(Cell.Value, "*")
        Temp() = Split(CellTags(2), "_")
        ControlName = Temp(0)
        CellValue = Temp(1)
        CustomName.Add Array(CellValue, ControlName), CellValue
    End If
Next

在此集合中CellValue将始终不同，因为它包含E1，D2等单元格名称，但ControlName可以与单元格中包含的值相同。我想在创建后从集合中获取多个重复的ControlNames

这是我试图实现它但它无法正常工作

Dim DummyInt As Integer

For Each key In CustomName
    For Each Key2 In CustomName
        If key(1) = Key2(1) Then
            DummyInt = DummyInt + 1
        Else
            DummyInt = DummyInt - 1
        End If
    Next
Next
MsgBox DummyInt