删除符合条件的数据

CAONI

删除符合条件的数据

1、b5开始的b列各单元格分别填有不同的数据且每2个数字间空1格。

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

3、点击按钮后，c5-c10各单元格的数字对b5开始的b列各单元格的所有数字进行查找，删除同时符合c5-c10共6个单元格数据的b5列数据，删除后的b5列余数填写到g5开始的g列各单元格.

4、b5列同时符合c5-c10共6个单元格的数据是指：b5某个单元格的数据与c5有1到2个相同、与c6有0到1个相同、与c7有1到3个相同、与c8、c9有1到2个相同、与c10有1到3个相同。

谢谢1

删除符合条件的数据.rar (19.74 KB, 下载次数: 6)

2024-3-10 19:33 上传

点击文件名下载附件

1-2=7 14 19 28 36
0-1=9 16 18 20 27
1-3=2 11 22 23 26
1-2=5 12 21 25 29
1-2=10 15 30 32 33
1-3=3 6 13 31 34

半百

ykcbf1100

被绕晕了。。

yynrzwh

其实只要把原来老师写的代码改一个符号就可以了
=改为<>

For i = 1 To UBound(crr) '取得符合条件的数据的编号
    If crr(i, 1) <> n Then
    b = b + 1
    Range("d" & b) = Arr(i, 1)
    End If
Next

CAONI

yynrzwh 发表于 2024-3-10 20:29
其实只要把原来老师写的代码改一个符号就可以了
=改为

这种方法在多组数据循环运行时很慢，谢谢！

CAONI

半百 发表于 2024-3-10 20:05

老师你好，程序经测试满足要求，谢谢！