0
我有下表。基本上列A是主數據。 列B,C和D將包含列A中的一些數據。列B,C和D可以具有公共數據。將第一列與其他三列進行比較。在最後一欄顯示不匹配的數據
我想比較數據列A到列B,C和D. 在結果列中顯示所有不匹配的數據。
我有下表。基本上列A是主數據。 列B,C和D將包含列A中的一些數據。列B,C和D可以具有公共數據。將第一列與其他三列進行比較。在最後一欄顯示不匹配的數據
我想比較數據列A到列B,C和D. 在結果列中顯示所有不匹配的數據。
那麼你可以使用這個「大」數組公式:
=INDEX($A$1:$A$10;SMALL(IF(NOT(COUNTIF($B$1:$B$2;$A$1:$A$10)+COUNTIF($C$1:$C$3;$A$1:$A$10)+COUNTIF($D$1:$D$2;$A$1:$A$10));ROW($A$1:$A$10)-ROW($A$1)+1;"");ROW(A1)))
,無論你想獲得第一的,然後複製下來,從而得到別人寫公式。
這是一個數組公式,所以不要忘記按Ctrl Shift鍵輸入
根據您的區域設置,你可能需要更換字段分隔符「;」通過 「」
這一個是小,仍然有效:
=INDEX($A$1:$A$10;SMALL(IF(NOT(COUNTIF($B$1:$D$3;$A$1:$A$10));ROW($A$1:$A$10)-ROW($A$1)+1;"");ROW(A1)))
試試這個:
Sub MissingItems()
Dim N As Long, I As Long, J As Long, V As String
Dim r As Range
N = Cells(Rows.Count, 1).End(xlUp).Row
J = 1
For I = 1 To N
V = Cells(I, 1).Value
Set r = Nothing
Set r = Range("B:D").Find(V, After:=Range("B1"))
If r Is Nothing Then
Cells(J, 5).Value = V
J = J + 1
End If
Next I
End Sub