[已解决]请求筛选

fdfdxxhjc

先生们好，我有一个40行12列的“原表”，这个原表中的每行的12个数都是最小是1最大是18，请问有否这样的现成的函数，能把每行中的12个数与1、2、...、17、18这18个数比对后将未出现的数写在这一行的右侧。若无怎样的现成函数，请大佬用vba编写一个能达到上述要求的代码，谢谢先生（“原表.xlsx”中的第一行已用手工做好并显示了） 原表.rar (9.14 KB, 下载次数: 9)

2021-10-23 08:13 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2021-10-23 11:29

1. =SMALL(IF(COUNTIF($A3:$L3,ROW($1:$18))=0,ROW($1:$18)),COLUMN(A1))

复制代码

数组公式。需要三键

跳转到最佳答案楼层

心正意诚身修

1. =SMALL(IF(COUNTIF($A3:$L3,ROW($1:$18))=0,ROW($1:$18)),COLUMN(A1))

复制代码

数组公式。需要三键

心正意诚身修

1. Sub 取不存在的值()
   
2. Dim MAXROW As Integer, BRR(), K As Integer, COL As Byte, X, Y
   
3. MAXROW = Range("A65536").End(xlUp).Row
   
4. ReDim BRR(1 To MAXROW - 1, 1 To 6)
   
5. For K = 2 To MAXROW
   
6. Y = 0
   
7. For X = 1 To 18
   
8.   If Application.CountIf(Range("A" & K & ":L" & K), X) = 0 Then
   
9.      Y = Y + 1
   
10.     BRR(K - 1, Y) = X
    
11.     End If
    
12. Next
    
13. Next
    
14.    Range("M2").Resize(K - 2, 6) = BRR
    
15. End Sub
    
16. 
    

复制代码

练习一下VBA

songxueyi1

心正意诚身修 发表于 2021-10-23 11:29
数组公式。需要三键

大神大神，诚恳请教，
1：是否存在这样一种函数，可以把您所给出的这个公式当中所求得的结果合并在一个单元格里直接体现出来，用逗号隔开？而不是通过small把他们按各单元格体现出来？excel版本2007


2：如果单元格中不是数字，而是中文文本，那肯定不能通过small来对数组进行排序，是否还有其他的函数能达到此表中同样的要求？

心正意诚身修

songxueyi1 发表于 2021-10-23 18:22
大神大神，诚恳请教，
1：是否存在这样一种函数，可以把您所给出的这个公式当中所求得的结果合并在一个 ...

拿具体 的例子说话。一样的思路，只是找下位置而已

fdfdxxhjc

心正意诚身修 发表于 2021-10-23 12:35
练习一下VBA

太棒了，谢谢先生