比较重复数字得出行数

G金戈铁马G · 发表于 2013-10-2 11:17

在excel表格中，有很多行数据，每行有六个数(A-F)，要判断它下面最近的第几行的数据与本行数据有四个及上以上重复的，在G列标记出间隔行数。如第12行与第1行有四个重复数字，在G1标注“11”。第3行与第2行有四个重复数字，在G2标注“1”。
我是新人，不知如何给人加分，只能请大虾帮忙。附：参考表格

比较重复数据.zip (2.62 KB, 下载次数: 13)

jsxjd · 发表于 2013-10-2 11:31

G1公式,下拉:

=MATCH(TRUE,MMULT((A2:F$22=A1)+(A2:F$22=B1)+(A2:F$22=C1)+(A2:F$22=D1)+(A2:F$22=E1)+(A2:F$22=F1),{1;1;1;1;1;1})>2,)

复制代码

swyrlbq · 发表于 2013-10-2 11:44

比较重复数据.zip (3.49 KB, 下载次数: 18)

G金戈铁马G · 发表于 2013-10-2 12:25

不错，谢谢高手指点。

G金戈铁马G · 发表于 2013-10-2 12:27

=MATCH(TRUE,MMULT((A2:F$22=A1)+(A2:F$22=B1)+(A2:F$22=C1)+(A2:F$22=D1)+(A2:F$22=E1)+(A2:F$22=F1),{1;1;1;1;1;1})>2,)这个公式，我的03版本可能识别不了。待我下载07版本后再试用。谢谢！

G金戈铁马G · 发表于 2013-10-2 12:40

再请教一下swyrlbq，如果表格不止22行，而是有几百行，这个公式该如何改正？

G金戈铁马G · 发表于 2013-10-2 12:56

我知道公式改数了。只是如果将公式中$22改为$2000还行，再改大就出错了。

蓝桥玄霜 · 发表于 2013-10-2 17:14

Sub lqxs()
Dim Arr, i&, d, j&, n&
Set d = CreateObject("Scripting.Dictionary")
Sheet1.Activate
Arr = [a1].CurrentRegion
For i = 1 To UBound(Arr)
For j = 1 To UBound(Arr, 2)
d(Arr(i, j)) = ""
Next
For j = i + 1 To UBound(Arr)
n = 0
For y = 1 To UBound(Arr, 2)
If d.exists(Arr(j, y)) Then n = n + 1
Next
If n > 3 Then
Cells(i, 7) = j - i
GoTo 100
End If
Next
100:
d.RemoveAll
Next
End Sub

复制代码

蓝桥玄霜 · 发表于 2013-10-2 17:17

与数据多少无关，越多越好。
请见附件。
点击按钮即可。

G金戈铁马G · 发表于 2013-10-2 21:03

蓝桥玄霜发表于 2013-10-2 17:17
与数据多少无关，越多越好。
请见附件。
点击按钮即可。

真正的高手。学习了！

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

[求助] 比较重复数字得出行数