小白急于求助！坐等。谢谢

一只大宝宝

需要找到一组应数据中缺少的数值。如1-10，中间没有了2、5、7。。。搜到了一个Sub test1()    Dim arr, x&, y&, s$
    arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
    For x = 366501 To 368500
        For y = 1 To UBound(arr)
            If arr(y, 1) = x Then GoTo aa
        Next y
        s = s & "," & x
aa:
    Next x
    MsgBox "缺少的数有：" & Mid(s, 2, Len(s))
    End Sub

运行后可以实现，但是是以提示框的方式       请求帮助，是否稍作修改，点击按钮后，能将获得的结果显示在表中的单独一列上。非常感谢！！！不知道描述的是否清楚{:soso_e149:}

jsxjd

双重循环效率会低，改了一下

1. Sub test()
   
2.     Dim d, c
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For i = 1 To 10: d(i) = 0: Next
   
5.     For Each c In Range("A1:A" & [A65536].End(xlUp).Row)
   
6.         d.Remove (c.Value)
   
7.     Next
   
8.     Cells(1, 3).Resize(d.Count, 1) = Application.Transpose(d.keys)
   
9.     Set d = Nothing
   
10. End Sub
    
11. 
    

复制代码

一只大宝宝

太感谢啦！收到回复好开心{:soso_e142:}    。。。实在是很菜哎。运行的时候好像提示 6 行的问题，没有成功，麻烦再帮我看一看。非常感谢！

jsxjd

一只大宝宝 发表于 2013-12-17 23:20
太感谢啦！收到回复好开心    。。。实在是很菜哎。运行的时候好像提示 6 行的问题，没有成功 ...

将该行改成如下：

1.         If d.exists(c.Value) Then d.Remove (c.Value)
   

复制代码

一只大宝宝

jsxjd 发表于 2013-12-17 23:34
将该行改成如下：

太感谢了！解决了！膜拜。。。。。不用苦恼那好几万的数字了。。。谢谢