在逗号分隔的列表中查找缺失的数字

如何解决在逗号分隔的列表中查找缺失的数字

我在单元格中有一个逗号分隔的列表。所有数字都是正数，并且在 1 到 10 之间。

示例：

如果我在 A1: (2,3,5,6) 中有缺失的数字，我希望 B1:(1,4,7,8,9,10) 中有缺失的数字。

如果 A2: (1,10)，那么我会在 B2:(2,6,9)

如果 A3: (7)，那么我会在 B2:(1,2,10)

我在网上搜索了一个解决方案，但我找不到任何类似的用逗号分隔的数字。

如果我能在这里找到解决方案，我会很高兴。谢谢。

解决方法

这是一个用户定义的函数，应该可以完成这个......可能可以优化。

Public Function MissingNumbers(ByVal numberList As String) As String
    Dim temp As String
    temp = Replace(numberList,"(","")
    temp = Replace(temp,")","")
    
    Dim arr As Variant
    arr = Split(temp,",")
    
    Dim newNumbers As String
    newNumbers = "1,2,3,4,5,6,7,8,9,10,"
    
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        newNumbers = Replace(newNumbers,arr(i) & ","")
    Next

    newNumbers = "(" & Left$(newNumbers,Len(newNumbers) - 1) & ")"
    MissingNumbers = newNumbers
End Function