想求一条筛选数据的程序

来源：百度知道 编辑：UC知道 时间：2024/09/18 05:15:28
想求一条筛选数据的程序
以6个数数字为一组,我只想要在6个数字里有2个数字是连号的组合,求筛选程序
33 11 31 5 1 15
26 22 13 5 1 15
27 22 13 5 1 15
28 22 13 5 1 15
29 22 13 5 1 15
32 22 13 5 1 15
33 22 13 5 1 15 这个组合就满足条件33和22是连好
26 13 22 5 1 15
27 13 22 5 1 15
28 13 22 5 1 15
29 13 22 5 1 15
32 13 22 5 1 15
33 13 22 5 1 15
26 30 13 5 1 15
27 30 13 5 1 15
28 30 13 5 1 15
29 30 13 5 1 15这个组合就满足条件29和30是连好
26 13 30 5 1 15
27 13 30 5 1 15
28 13 30 5 1 15
29 13 30 5 1 15这个组合和上面一组29 30 13 5 1 15的6个号码是相同的,是否可以在筛选程序里加上一句语言,如果出现6个数字相同的组合,只需要一组数据,
求这条程序我已经把积分用完了

sub text()
a="33 11 31 5 1 15
26 22 13 5 1 15
27 22 13 5 1 15
28 22 13 5 1 15
29 22 13 5 1 15
32 22 13 5 1 15
33 22 13 5 1 15 这个组合就满足条件33和22是连好
26 13 22 5 1 15
27 13 22 5 1 15
28 13 22 5 1 15
29 13 22 5 1 15
32 13 22 5 1 15
33 13 22 5 1 15
26 30 13 5 1 15
27 30 13 5 1 15
28 30 13 5 1 15
29 30 13 5 1 15这个组合就满足条件29和30是连好
26 13 30 5 1 15
27 13 30 5 1 15
28 13 30 5 1 15"
b=split(a," " )
n=1
for i=0 to ubound(b)
if b(i)=22 or b(i)=32 or b(i)=29 or b(i)=30 then
cells(n,1)=b(i)
n=n+1
end if
next
'这个是在Excel运行的
end sub

33 22 是对子号，怎么也算连号了？
过滤彩票号码，用红宝石全能版一切就搞定了！！
以下代码仅供参考！
Option Explicit

Private Sub Command1_Click()
Cls
Dim a, x, i, j, n
Dim flag As Boolean
a = Split(Trim(Text1.Text), vbCrLf)
For i = LBound(a) To UBound(a)
flag = False