[已解决]可否查找有顺序数据的个数

hjp2000

可否查找有顺序数据的个数

请教一个问题，如果在查询发票时，输入了多张发票号码（无序），如何在排序后不用一个一个看即可以知道存在顺序的号码存在？在excel中可以实现查找并提示吗？

注：我想查找的并不是是否有重复数据，我想查的是是否有顺序的数据出现，并且顺序出现的数据出现了几次，比如出现了1,2,3,4,那么我不用一个个去看（因为数据比较多，一个个看会很费时间），就可以知道有四个连续的数据值及对应的金额

用什么来实现，附件中前面是未整理的，后面一张表是我一个个看着发票号理出的连顺发票，可有简便的方法直接实现吗？

谢谢指教

SEhV2sDO.rar (6.15 KB, 下载次数: 1)

2009-9-21 16:14 上传

点击文件名下载附件
可否查找有顺序数据的个数

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

函数小菜鸟

为什么要分两列？

hjp2000

我这么分是为了自己方便查看而已，可以不用分

函数小菜鸟

需要把未整理的表，自动生成整理后的表格吗？

hjp2000

当然如果能这样是最好的，如果不可以的话，那就退而求其次，只接在原表上提示哪些地方出现了顺序连号数据即可

函数小菜鸟

连续号码，只要是在区域内出现，就提示吗？

比如A20 和 A2 的号码是连续的，是否提示，如何提示？

hjp2000

随便怎么提示都可以，只要能让我知道这时有出现连续的号就可以

hjp2000

前面的表我做了数据排序，最好是在无序的状态下就可以实现提示（可显示在某处出现了连号的提示），这样我在核对实际票据时就可以顺序核对了（按实际录入时的顺序）

E-H-P

上传仿实例一则:

8R7YtydQ.rar (8.3 KB, 下载次数: 1)

2009-9-21 16:52 上传

点击文件名下载附件
可否查找有顺序数据的个数
Sub Numtype()
Dim dic As Object, i&, R As Range
Set dic = CreateObject("scripting.dictionary")

With Sheet1
    For Each R In .Range(.Range("A5"), .Range("A65536").End(xlUp))
        If Not dic.EXISTS(R) Then
            dic.Add R.Value, ""
        End If
    Next
For i = Application.Min(dic.KEYS) To Application.Max(dic.KEYS)
    If dic.EXISTS(i) Then
        dic.Remove i
    Else
        dic.Add i, Nothing
    End If
Next
    .Range("C2:C500").ClearContents
    .Range(.Cells(2, "C"), .Cells(dic.Count + 1, "C")) = Application.Transpose(dic.KEYS)
End With

End Sub

E-H-P

不好意思,因为不能下你的附件,"连号"误解了,我以为是求缺少的号,上件不需要看了

[此贴子已经被作者于2009-9-21 16:55:06编辑过]