Vba 列数组、偏移量查找值、计数

我在列“i”中有数据，一些文本值不同，我想将它们添加到一个数组中，然后返回两列，如果有值是“Check”，则对其进行计数。数组应该显示列“i”中的值以及每个列的“Check”数。我在下面做了类似的事情，但可能是完全错误的…只是尝试一些东西，不知道如何完成…结果可能会显示在A:B列中

  Sub CCount()
    Dim Count, Count, Count1 As Long
    Dim Arr() As Variant
    Dim n As Integer
    n = WorksheetFunction.CountA("I9:I32")
    Cells(9, 9).Select
    Count = 0
    ReDim Arr(1 To n)
    For Each Arr(n) In Range("I9:I32")

    If Arr(n).Value = Arr(n) And Arr(n).Offset(0, -2).Value = "Check" Then
    Count = Arr(n).Count
    Count1 = Count + Count1
    End If
    Next Arr(n)

    End Sub

对不起，请看下面的图片…我想计算以下内容：对于每个目标，如果“检查”，则计数，因此对于Target1=3，Target3=1等等…在“Target”列中大约有20个不同的值

---

你的描述充其量也不好。请至少添加工作簿的图片。详细说明您正在尝试执行的操作，例如“我想在列X中查找值，并查看它们是否存在于列Y中”。代码有帮助，但是一些示例数据和一些期望的结果会有帮助。对不起，为了说明，图片可以帮助您将数据从目标列复制到输出列，使用“删除重复项”，然后使用countifs获取计数。是的，我也可以用一个简单的轴来完成……但我想用代码来完成