依次提取符合条件的数据

CAONI · 发表于 2024-4-12 14:56

本帖最后由 CAONI 于 2024-4-13 08:38 编辑

依次提取符合条件的数据

1、b5开始的b列各单元格分别填有不同的数据且每2个数字间空1格。
2、c5开始的c列各单元格分别填有不同的条件数据，以等号为界等号右边数字每2个数字间空1格,等号左边为区间条件，表示等号右边的数据与b列某个单元格数据个数相同的数据个数。

如c列条件：
1-2=03 08 15 21表示在：03 08 15 21 这4个数中有1到2与b列某个单元格数据个数相同即b列数据符合条件被提取。
0-3=12 15 20 33表示在：12 15 20 33 这4个数中有0到3与b列某个单元格数据个数相同即b列数据符合条件被提取。

3、c3开始的c列，每行为一个条件每4行为1组，即c5：c8为第1组，c9：c12为第2组，c13：c16为第3组。。。。。。

4、点击按钮c5开始的c列第1组即c5：c8中的4个条件依次对b5开始的b列各单元格的所有数字进行查找，将同时符合c5-c8共4个单元格条件的b5列数据提取出来并存放在数组arr中，第2组条件在第1组条件查找的结果即arr中查找，并将同时符合第2组c9-c12共4个单元格条件的arr中的数据提取出来并存放在数组arr，第3组条件在第2组条件查找的结果即arr中查找，并将同时符合第3组c13-c16共4个单元格条件的arr中的数据提取出来并存放在数组arr，最后结果填充在e5开始的e列各单元格

5、附件中的方法采用了b5列为过渡列，现在想不用b5列为过渡列，直接在上一组结果中查找不知能否实现，请老师帮忙看看，谢谢！

6、本主题必须采用 step 4 跳转，即下一组条件必须在上一个条件的结果中查找！

数据依次查找.rar (28.63 KB, 下载次数: 15)

chxw68 · 发表于 2024-4-12 15:51

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
.Range("e5:e" & .Rows.Count).ClearContents
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a5:a" & r)
For i = 1 To UBound(arr)
Set d(i) = CreateObject("scripting.dictionary")
xm = Split(arr(i, 1), Space(1))
For j = 0 To UBound(xm)
d(i)(xm(j)) = Empty
Next
Next
r = .Cells(.Rows.Count, 3).End(xlUp).Row
brr = .Range("c5:c" & r)
For i = 1 To UBound(brr)
brr(i, 1) = Split(Replace(Replace(brr(i, 1), "-", Space(1)), "=", Space(1)), Space(1))
Next
x = 4
For k = 1 To UBound(brr) Step x
For Each aa In d.keys
m = 0
For q = 1 To x
n = 0
For j = 2 To UBound(brr(k + q - 1, 1))
If d(aa).exists(brr(k + q - 1, 1)(j)) Then
n = n + 1
End If
Next
If n >= Val(brr(k + q - 1, 1)(0)) And n <= Val(brr(k + q - 1, 1)(1)) Then
m = m + 1
End If
Next
If m <> x Then
d.Remove (aa)
End If
Next
Next
If d.Count > 0 Then
ReDim crr(1 To d.Count, 1 To 1)
m = 0
For Each aa In d.keys
m = m + 1
crr(m, 1) = Join(d(aa).keys, Space(1))
Next
.Range("e5").Resize(m, 1) = crr
End If
End With
End Sub

复制代码

chxw68 · 发表于 2024-4-12 15:52

参与一下。

半百 · 发表于 2024-4-12 16:17

你这个结果跟直接比对完12个有什么区别？

CAONI · 发表于 2024-4-12 16:37

本帖最后由 CAONI 于 2024-4-12 16:58 编辑

半百发表于 2024-4-12 16:17
你这个结果跟直接比对完12个有什么区别？

结果跟直接比对完12是一样的，为了加快速度才改成分组，实际条件会有10万组左右，如果我每小组加二次限定即每小组只有1至3是对的这算法就不对了。。。

原程序加：二次限定即每小组只有1至3条是对的，m=kk成：m>=1 and M<=3 看看能否修改。。。

ooluckydog · 发表于 2024-4-12 19:10

CAONI · 发表于 2024-4-13 00:08

ooluckydog 发表于 2024-4-12 19:10

老师你好，麻烦改成条件每4行一组跳转，因为每组在实际中要用到二次限定，例如每小组保留1至3条是对的数据，谢谢！

ooluckydog · 发表于 2024-4-13 09:55

按照条件分组依次输出过滤结果，每一次输出结果作为下一次过滤的输入数据

CAONI · 发表于 2024-4-13 10:50

本帖最后由 CAONI 于 2024-4-13 12:05 编辑

ooluckydog 发表于 2024-4-13 09:55
按照条件分组依次输出过滤结果，每一次输出结果作为下一次过滤的输入数据

老师你好，只要最后一组结果填在e5列就可以了，即只要图片中的：分组结果2的数据填在e5列就可以了，谢谢！

ooluckydog · 发表于 2024-4-13 12:54

		自动登录	找回密码
密码			免费注册

[求助] 依次提取符合条件的数据

评分

评分

评分

评分

评分