两组数据比较

gxk0910

求助：将两组数据比较，将不相同的数据粘贴到另一个地方。

limonet

函数也是excel的精华：=FILTER(A3:C8,ISNA(MATCH(A3:A8,E:E,)))

tanglf188

参与一下

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.3.18
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Me.[a1].CurrentRegion
   
4.     brr = Me.[e1].CurrentRegion
   
5.     ReDim zrr(1 To UBound(arr), 1 To 3)
   
6.     For i = 3 To UBound(brr)
   
7.         s = CStr(brr(i, 1)) & "|" & brr(i, 2)
   
8.         d(s) = d(s) + 1
   
9.     Next
   
10.     For i = 3 To UBound(arr)
    
11.         s = CStr(arr(i, 1)) & "|" & arr(i, 2)
    
12.         d(s) = d(s) + 1
    
13.     Next
    
14.     For i = 3 To UBound(arr)
    
15.         s = CStr(arr(i, 1)) & "|" & arr(i, 2)
    
16.         If d(s) = 1 Then
    
17.             m = m + 1
    
18.             For j = 1 To UBound(arr, 2)
    
19.                 zrr(m, j) = arr(i, j)
    
20.             Next
    
21.         End If
    
22.     Next
    
23.     Columns(9).NumberFormatLocal = "@"
    
24.     [i3].Resize(m, 3) = zrr
    
25.     Set d = Nothing
    
26. End Sub
    

复制代码

HLAI

参考一下
https://club.excelhome.net/thread-1321922-1-1.html

无关岁月

数据源1.7z (15.75 KB, 下载次数: 14)

2024-3-18 09:47 上传

点击文件名下载附件

gxk0910

多谢各位大神！！！

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, i&, dic As Object, Rng As Range
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [E1].CurrentRegion.Value
    For i = 3 To UBound(ar)
        dic(ar(i, 1)) = Empty
    Next i
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 3 To UBound(ar)
            If Not dic.exists(ar(i, 1)) Then
                If Rng Is Nothing Then
                    Set Rng = .Rows(i)
                Else
                    Set Rng = Union(Rng, .Rows(i))
                End If
            End If
        Next i
    End With
   
    [I1].CurrentRegion.Offset(2).Clear
    If Not Rng Is Nothing Then Rng.Copy [I3]
    Set dic = Nothing
    Beep
End Sub

yanglinzi

贵在参与。。