[已解决]自定函数返回相同的个数及实际数。

爱疯

'限制条件：
'1）各参数都是一行区域
'2）各参数包含的元素个数，都相同
Function SameNumber(ParamArray A() As Variant)
    Dim B, C, D, i%, j%, str$

    SameNumber = 0
    C = A(0): D = C
    ReDim C(1 To 1, 1 To UBound(C, 2))

    '1）求个数。遍历每个子区，只有第1个子区是直接赋值给C，其它子区是和C比较。
    For i = 0 To UBound(A)
        B = A(i)
        For j = LBound(C, 2) To UBound(C, 2)
            C(1, j) = IIf(i, C(1, j) = B(1, j), B(1, j))
        Next j
    Next i

    '只有为True的位置上，是各子区都相同的情况。
    For j = LBound(C, 2) To UBound(C, 2)
        If C(1, j) Then SameNumber = SameNumber + 1
    Next j

    '2）求实际数字的列表。根据位置，找出对应的值。
    For j = LBound(C, 2) To UBound(C, 2)
        If C(1, j) Then str = str & "," & D(1, j)
    Next j

    '3）返回结果
    If str <> "" Then str = "(" & Mid(str, 2) & ")"
    SameNumber = SameNumber & str
End Function

求相同6.rar (10.25 KB, 下载次数: 5)

2016-3-5 17:28 上传

点击文件名下载附件



左上角有绿三角的原因是？
参数（即子区），是从一行数据的中间部分，选取而来的。
EXCEL的错误检查规则中有这样的选项，所以Excel 默认会提示 是否忽略了相邻的单元格中数据。
也就说，你如果选择的整行，如AC27或AC28，就没提示了。
或者取消图中的钩，也没提示。（不推荐）

excelpxfans001

爱疯 发表于 2016-3-5 17:35
'限制条件：
'1）各参数都是一行区域
'2）各参数包含的元素个数，都相同

是的，左上角的提示。不过让它也没关系 。有结果就可以了。谢谢版主的出手。