查找最近七行没有出现的数字

午夜怨曲 · 发表于 2018-12-13 12:17

YZC51 发表于 2018-12-12 22:49
请参考

老师您好，如果我的问题的数字从之前的0到9变更为1到10，怎么修改，谢谢

午夜怨曲 · 发表于 2018-12-13 12:42

hcm19522 发表于 2018-12-13 12:12
{=MID(SUM(IFERROR(SMALL(IF(FREQUENCY(IF(COUNTIF(A2:A8,B2:D8)=0,B2:D8),ROW($1:$9)-1)>0,ROW($1:$10)-1) ...

谢谢，能扩展到20行的话，应该怎么修改，谢谢

YZC51 · 发表于 2018-12-13 13:02

午夜怨曲发表于 2018-12-13 12:17
老师您好，如果我的问题的数字从之前的0到9变更为1到10，怎么修改，谢谢

可以用19楼老师的代码修改下
Function myy(a, b)
'设定最后7行范围
Set aa = a
Set bcd = b
x = "、"
'BCD列数据去重复集合
For Each Rng In bcd
      If Rng <> "" Then t = Rng & "、"
      If InStr(x, "、" & t) = 0 Then x = x & t
Next
'剔除A列数据
For Each Rng In aa
      If Rng <> "" Then t = "、" & Rng & "、"
      x = Replace(x, t, "、")
Next
myy = Replace(x, "、", "") 'x ', 2, Len(x) - 2)
End Function

午夜怨曲 · 发表于 2018-12-13 13:04

YZC51 发表于 2018-12-13 13:02
可以用19楼老师的代码修改下
Function myy(a, b)
'设定最后7行范围

修改到哪里的，谢谢。真不好意思，因为我对这些代码不懂

YZC51 · 发表于 2018-12-13 13:18

附件请参考

问题 (3).rar (23.26 KB, 下载次数: 8)

YZC51 · 发表于 2018-12-13 13:19

午夜怨曲发表于 2018-12-13 13:04
修改到哪里的，谢谢。真不好意思，因为我对这些代码不懂

附件已经上传，如果好用，请鲜花鼓励下！

午夜怨曲 · 发表于 2018-12-13 13:26

YZC51 发表于 2018-12-13 13:19
附件已经上传，如果好用，请鲜花鼓励下！

谢谢，因为刚接触这个，所以对鲜花这个不不太懂，昨天给你花了，今天好像没有花了。

YZC51 · 发表于 2018-12-13 13:27

没关系的，能用就好！

zhzwaz · 发表于 2018-12-13 13:59

楼主，你给个真实的模拟数据，才更容易理解一点。其实你就是想让相邻的单元格/行/列的标记颜色不能太相近。一堆杂乱的被修改的123456789让人摸不着头脑。

zhzwaz · 发表于 2018-12-13 14:41

Sub 颜色代码()
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub

复制代码

你应该需要的是这个。。。。

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

[求助] 查找最近七行没有出现的数字

评分