求助大神关于多列提取每列重复数据

wyong127 · 发表于 2023-3-26 20:01

sandays 发表于 2023-3-26 08:40
=FILTER(A2:A5077,MMULT(COUNTIF(OFFSET(A2:A5845,,{0,1,2,3}),A2:A5077),Z1:Z4+1)=4)

谢谢，感谢解答

wyong127 · 发表于 2023-3-26 20:02

sandays 发表于 2023-3-26 08:40
=FILTER(A2:A5077,MMULT(COUNTIF(OFFSET(A2:A5845,,{0,1,2,3}),A2:A5077),Z1:Z4+1)=4)

谢谢，感谢解答

wyong127 · 发表于 2023-3-26 20:12

高个子发表于 2023-3-26 16:12
数据太多了，非要函数的话你的版本太卡了，我买了一年的电脑半小时才出来，所以建议VBA或者power q ...

好的，感谢解答，

吴中泉 · 发表于 2023-3-27 08:21

本帖最后由吴中泉于 2023-3-27 08:57 编辑

在五楼VBA的基础上,进行了改进,速度提升了3倍.

Sub lll()
'关于多列提取每列重复数据
Dim arr
Dim arr1()
Dim i, k, g As Integer
't = Timer
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr)
m = 0
For k = 1 To UBound(arr)
If arr(i, 1) = arr(k, 2) Then
m = m + 1: Exit For
End If
Next
If m = 0 Then GoTo 循环尾
For k = 1 To UBound(arr)
If arr(i, 1) = arr(k, 3) Then
m = m + 1: Exit For
End If
Next
If m = 1 Then GoTo 循环尾
For k = 1 To UBound(arr)
If arr(i, 1) = arr(k, 4) Then
m = m + 1: Exit For
End If
Next
If m = 2 Then GoTo 循环尾
g = g + 1
ReDim Preserve arr1(1 To g)
arr1(g) = arr(i, 1)
循环尾:
Next
Range("i2").Resize(UBound(arr1), 1) = Application.WorksheetFunction.Transpose(arr1)
' MsgBox Timer - t
End Sub

复制代码

吴中泉 · 发表于 2023-3-27 08:22

本帖最后由吴中泉于 2023-3-27 08:55 编辑

代码发错了,见下楼

吴中泉 · 发表于 2023-3-27 08:25

关于多列提取每列重复数据,我又尝试编写了一个程序,实现任意行任意列查找重复数据.程序如下:

Sub 提取多列中每列都有的重复值()
Dim arr
Dim arr1()
Dim i, j, k, m, g As Integer
'i、k为行下标，j为列下标，m为一个数重复次数，g为重复数的多少
't = Timer
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr)
j = UBound(arr, 2)
m = 0
k = 1
Do While k <= UBound(arr)
If arr(i, 1) = arr(k, j) Then
m = m + 1: j = j - 1: k = 0
If j = 1 Then Exit Do
End If
k = k + 1
Loop
If m = UBound(arr, 2) - 1 Then
g = g + 1
ReDim Preserve arr1(1 To g)
arr1(g) = arr(i, 1)
End If
Next
Range("h2").Resize(UBound(arr1), 1) = Application.WorksheetFunction.Transpose(arr1)
'MsgBox Timer - t
End Sub

复制代码

wyong127 · 发表于 2023-3-28 11:08

吴中泉发表于 2023-3-27 08:25
关于多列提取每列重复数据,我又尝试编写了一个程序,实现任意行任意列查找重复数据.程序如下:

感谢，感谢，

吴中泉 · 发表于 2023-3-28 20:12

wyong127 发表于 2023-3-28 11:08
感谢，感谢，

今天又编写了一段程序,不但实现了任意行任意列查找提取重复数据，还把速度提升了上百倍，几万行五六列数据在毫秒级完成。而以上发的程序则要几十秒甚至数分钟，而且数据量越大相差更大。
我准备单独发贴，欢迎大家讨论交流，相互学习。

学了忘忘了学 · 发表于 2023-3-29 13:29

=IF(AND(COUNTIF(B:B,A2)>=1,COUNTIF(C:C,A2)>=1,COUNTIF(D:D,A1>=1),A2,"")

橒♂蝣 · 发表于 2023-3-31 10:10

=UNIQUE(FILTER(A:A,(IFERROR(XMATCH(A:A,B:B)^0,0)+IFERROR(XMATCH(A:A,C:C)^0,0)+IFERROR(XMATCH(A:A,D:D)^0,0))=3))

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

[求助] 求助大神关于多列提取每列重复数据