在Excel中，需要匹配每行中的数字并添加包含匹配项的单元格数

Question

在Excel中，我试图将一个列表中的数字与同一工作表上另一个列表中的数字进行匹配，然后计算包含匹配数字的单元格的数量。

列A是名称列表。 B列至F列是分配给每个名称（主列表）的数字。 I至N列输入了数字（条目列表）。我需要查看主列表的每一行中有多少个单元格与条目列表中的所有单元格（几行）相匹配。

例如，在主列表上是John，他在B2到F2的单元格中有2个数字，它们与I到N列的单元格匹配。因此，结果（2）显示在G2中。请帮忙！

我已经尝试过使用countif进行条件格式设置，并且能够以彩色突出显示匹配的单元格，但是我不知道如何添加包含匹配数字的单元格数。

<script>

Answer 1

您也可以将Countif放在一个公式中

=SUMPRODUCT(COUNTIF(I:N,B2:F2))

或者如果I：N列中可能存在重复项，而您只想计算一次，

=SUMPRODUCT(--(COUNTIF(I:N,B2:F2)>0))

这里是第二个公式的示例，它仅计算不同的出现次数

Answer 2

尝试一下：

Sub macro()

Dim lastRow As Long, count As Long

lastRow = Cells(Rows.count, 1).End(xlup).Row

count = 0
For xrow = 2 To lastRow
    For xcol = 2 To 6
        For i = 9 To 14
            If Cells(xrow, xcol) = Cells(xrow, i) Then
                count = count + 1
            Else:
            End If
        Next i
    Next xcol
Cells(xrow, 7).Value = count
count = 0
Next xrow

End Sub

编辑：

将Cells(i, xcol)语句中的if更改为Cells(xrow, i)，并进行了修复。在我的机器上工作。