excel提取不同数据

发布网友发布时间：2022-10-24 12:05

共3个回答

热心网友时间：2024-12-15 06:43

D2:
=index(A:A,SMALL(IF(COUNTIF(B:B,A$2:A$1000)=0,ROW(A$2:A$1000),4^8),ROW(A1)))&""
按Ctrl+Shift+Enter 结束公式下拉

E2:
=index(B:B,SMALL(IF(COUNTIF(A:A,B$2:B$1000)=0,ROW(A$2:A$1000),4^8),ROW(A1)))&""
按Ctrl+Shift+Enter 结束公式
按Ctrl+Shift+Enter 结束公式
按Ctrl+Shift+Enter 结束公式下拉公式

热心网友时间：2024-12-15 06:44

Sub xx()
n1 = Cells(4 ^ 8, 1).End(3).Row - 1
n2 = Cells(4 ^ 8, 2).End(3).Row - 1
arr1 = [a2].Resize(n1)
arr2 = [b2].Resize(n2)
Set dc1 = CreateObject("scripting.dictionary")
Set dc2 = CreateObject("scripting.dictionary")
For i = 1 To n1
dc1(arr1(i, 1)) = ""
Next
For i = 1 To n2
dc2(arr2(i, 1)) = ""
Next
k1 = 0
For i = 1 To n1
If Not dc2.exists(arr1(i, 1)) Then
k1 = k1 + 1
arr1(k1, 1) = arr1(i, 1)
End If
Next
k2 = 0
For i = 1 To n2
If Not dc1.exists(arr2(i, 1)) Then
k2 = k2 + 1
arr2(k2, 1) = arr2(i, 1)
End If
Next
[d2].Resize(k1) = arr1
[e2].Resize(k2) = arr2
End Sub

热心网友时间：2024-12-15 06:44

没搞明白你的意思，如果A2=B2，D2，E2分别显示什么，不相同显示什么。

建议函数是if。