如何判断两个数组是否共享相同的元素

Question

所以这是我的问题的一种更简单的形式。 假设我有 2 个数组。 A={1,2} 且 B={2,4,6}。 如果 A 和 B 共享一个元素，则从 B 中删除该元素。 我知道您可以循环遍历并将 A 中的每个元素与 B 中的每个元素进行比较，但必须有更好的方法！

Answer 1

如果您的数组已排序（或者您可以对数组进行排序），则您可以同时处理两个数组。 其各自数组的末尾之外：

• 从两个数组的开头开始，直到将其中一个指针前进到 b 则将 a 指针前移
• 则删除 b 处的元素
• 如果 a = b 则删除 b 处的元素如果 a > b然后前进b指针

Answer 2

您必须编写代码，但它不必是强力的双重嵌套循环，并且您不必从数组中删除单个元素。

如果添加对 Microsoft 脚本运行时的引用（从 VBE 中的“工具”菜单），则可以使用“字典”对象来简化此操作。它有“Exists”、“Remove”和“Keys”方法。因此，您可以循环遍历 B 并将元素添加为字典中的键，然后循环遍历 A，检查这些元素是否存在，如果存在，则删除它们。

作为伪代码：

for each elem in b
    dict(elem)=0 
next elem

for each elem in a
    if dict.exists(elem)
        dict.remove(elem)
    end if
next elem

return dict.keys

上述方法还会从 B 中删除重复项（如果有）。

如果您知道数组没有错误值作为元素，则还可以使用 MATCH（以及在 VBA 'Application.Match' 或 'Application.WorksheetFunction.Match' 中）。执行类似操作

=MATCH({2,4,6},{1,2},0)

将返回 {2,#N/A,#N/A}。任何带有 #N/A 的位置都是 B 中不在 A 中的元素的位置。如果您在工作表中进行匹配，则可以拖动类似的公式

=IF(ISNA(cell of match),corresponding cell of B,NA())

，然后从中过滤掉 #N/As。在VBA中，你可以这样做（更多伪代码）：

matches=application.match(b,a,0) 

for each elem in matches
    if iserror(elem)
        add corresponding element of b to result
    end
next elem

redim result to new smaller size

return result

当然，然后你必须担心数组起始边界等。

Answer 3

基于 jtolle 伪代码的完整且解释的 VBA 解决方案

    Sub ExampleCall()
    Dim a, b: a = Array(1, 2): b = Array(2, 4, 6)
    Debug.Print "Array b: {" & Join(b, ",") & "}";  ' show original array b
    
    '~~~~~~~~~~~~~~~~~~~~~~~~
    'remove duplicates from b via Application.Index()
    '~~~~~~~~~~~~~~~~~~~~~~~~
    b = getUniques(a, b)                            ' << help function getUniques()
    
    Debug.Print " ~~> {" & Join(b, ",") & "}"       ' Array b: {2,4,6} ~~> {4,6}
    End Sub

通过 1 行 Application.Match() 帮助函数 getUniques()< /strong>

//编辑 2020-07-24 根据 @jtolle 的评论更正了数组边界：

    Function getUniques(a, b)
    'Purpose: get 1-based items of array b not matching with array a items
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'a) match array b items against array a
    '   results in a 1-based array {2,#N/A,#N/A}, where
    '   the 1st numeric element of b equalling 2 indicates to be the 2nd item of b and
    '   error elements indicate unique items in b with no duplicate in b
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Dim matches: matches = Application.Match(b, a, 0)   ' results in 1-based array with b dimensions
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'b) get 1-based unique items in array b
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Dim i As Long, ii As Long                           ' counters
    For i = 1 To UBound(matches)                        ' loop through matches
        If IsError(matches(i)) Then                     ' no match #N/A indicates unique item in b
            ii = ii + 1                                 ' increment new counter
            ''matches(ii) = b(i - IIf(LBound(b), 0, 1)) ' OP: get b items to maintain
              matches(ii) = b(i + LBound(b) - 1)        ' edited: get b items to maintain

        End If
    Next i
    ''ReDim Preserve matches(LBound(b) To ii - IIf(LBound(b), 0, 1)) ' OP: reduce to needed size and original boundaries
    ReDim Preserve matches(LBound(b) To ii + LBound(b) - 1) ' edited; reduce to needed size and original boundaries

    getUniques = matches                                ' return function result

    End Function

Answer 4

不，我认为没有。你必须循环遍历。

Answer 5

如果数组内的值对于其数组来说是唯一的，则可以使数组索引实际值，从而允许您直接查找其索引，而不是扫描整个数组。

从元素较少的数组开始，我假设您想要执行 excel/VB？我制作了一张图片来说明这个想法。

http://img694.imageshack.us/img694/1503/hackmap.jpg

您没有两个嵌套循环，而是一个循环，并且它仅迭代与最小数组一样多的次数。