Question

【EXCEL】A列和B列有相同的内容（顺序不同），也有不同的，如何把对方没有的标出来？

Answer 1

打开EXCEL 按组合键 Alt+F11
左上方右键 插入 模块 ，粘贴下面代码。后在EXCEL菜单 工具 宏 运行
就可以了（把对方有的都标记了，没有的不标记）

Function RngFind(StrFind As String)
Dim rng As Range
If Trim(StrFind) <> "" Then
With Sheet1.Range("B:B")
Set rng = .Find(What:=StrFind, After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rng Is Nothing Then
Application.Goto rng, True
rng.Interior.ColorIndex = 3
RngFind = True
Else
RngFind = False
End If
End With
End If
End Function

Function RngFind2(StrFind As String)
Dim rng As Range
If Trim(StrFind) <> "" Then
With Sheet1.Range("A:A")
Set rng = .Find(What:=StrFind, After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rng Is Nothing Then
Application.Goto rng, True
rng.Interior.ColorIndex = 3
RngFind2 = True
Else
RngFind2 = False
End If
End With
End If
End Function

Sub Macro2()
Dim str As String
amun = Sheet1.Range("A65536").End(xlUp).Row '获得某列A列最大有效行号
bmun = Sheet1.Range("B65536").End(xlUp).Row '获得某列A列最大有效行号

F1 = True
For n = 1 To amun
str = Range("A" & n).FormulaR1C1
F1 = F1 And RngFind(str)
Next n

F2 = True
For m = 1 To bmun
str = Range("B" & m).FormulaR1C1
F2 = F2 And RngFind2(str)
Next m
End Sub

Answer 2

你好：
第一列：先点击A1单元格，在“格式”，“条件格式”中，写入公式：=COUNTIF($B$1：$B$5，A1)=0
颜色选择红色，然后用格式刷向下拉，OK。
第二列：先点击B1单元格，在“格式”，“条件格式”中，写入公式：=COUNTIF($A$1：$A$5，B1)=0
颜色选择红色，然后用格式刷向下拉，OK。
祝你成功！

Answer 3

C1=if(iserror(vlookup(A1,B:B,1,0)),"此项A列有，B列没有","两列都有")
D1=if(iserror(vlookup(B1,A:A,1,0)),"此项B列有，A列没有","两列都有")
选择CD列向下填充
就一目了然

Answer 4

使用条件格式：
选中A列，在公式中输入：=AND(COUNTIF(B:B,$A1)=0,$A1<>"")，应用于输入：=$A:$A，选择填充红色确定
选中B列，在公式中输入：=AND(COUNTIF(A:A,$B1)=0,$B1<>"")，应用于输入：=$B:$B，选择填充红色确定