VBA：在其中一个范围内找到缺失的数字

Question

我想在Excel中比较两个范围（范围1和范围2），并列出或公布其中任何一个缺失数字的列表。

例如：范围1 = 1,2,3,4,5,6 范围2 = 1,3,4,6

我想显示2,5-作为丢失号码

请帮我在使用Excel VBA

Answer 1

我不知道是否有更好的方法实现这些目标，但是这将在单元格C1

Sub Missing() 
    String_Array = Split(Range("A1"), ",") 
    For I = 0 To UBound(String_Array) 
     If InStr(1, Range("B1"), String_Array(I)) = 0 Then 
      If Range("C1") <> Empty Then Range("C1") = Range("C1") & "," 
      Range("C1") = Range("C1") & String_Array(I) 
     End If 
    Next I 
End Sub 

Answer 2

Mutjaylee的答案不起作用写失踪的数字。它只检查范围1中的所有元素是否在范围2中。如果String_Array（I）= 1，则如果范围（“B1”）= 1，则InStr（1，Range（“B1”），String_Array “2,3,10”

试试这个：

Sub Missing() 
    Dim resultString As String 
    Dim arr1() As String 
    Dim arr2() As String 
    arr1 = Split(Range("A1"), ",") 
    arr2 = Split(Range("B1"), ",") 

    CompareArrays arr1, arr2, resultString 
    CompareArrays arr2, arr1, resultString 

    Range("C1") = resultString 
End Sub 


Sub CompareArrays(arr1() As String, arr2() As String, resultString As String) 
    Dim i As Integer, j As Integer 
    Dim bFlag As Boolean 
    For i = 0 To UBound(arr1) 
     bFlag = False 
     For j = 0 To UBound(arr2) 
      If arr1(i) = arr2(j) Then 
       bFlag = True 
       Exit For 
      End If 
     Next 
     If Not bFlag Then 
      If (Len(resultString)) Then resultString = resultString & "," 
      resultString = resultString & arr1(i) 
     End If 
    Next 

End Sub