excel中将两列数据中的相同数据筛选出来?

excel 07用条件格式--突出显示单元格规则--重复值,可以筛选出来,用03的怎么能作出这样的效果呢?

如何将两列中的重复数据提取出来

有A、B两列数据,我现在想把这两列数据中相同的数据提取出来,放到C列中

Sub yy()
Dim d As Object, i%, arr, arr2()
Set d = CreateObject("Scripting.Dictionary")
arr = [a3].CurrentRegion
For i = 1 To UBound(arr)

把A1,B1的两组数字,重复的给找出来
=IF(COUNTIF(A:A,B1)>0,"重复","")
把2列相同显示在1列
=IF(COUNTIF(A:A,B1)>0,B1,"")

重复的都删除,只留下不重复的
数组公式:
C1=INDEX($A$1:$A$100,SMALL(IF(COUNTIF($B$1:$B$100,$A$1:$A$100)=0,ROW($A$1:$A$100)),ROW()))
D1=INDEX($B$1:$B$100,SMALL(IF(COUNTIF($A$1:$A$100,$B$1:$B$100)=0,ROW($B$1:$B$100)),ROW()))
输入完公式后同时按Ctrl、Shift、Enter三键完成输入

d(arr(i, 1)) = 1
Next
For i = 1 To UBound(arr)
If d(arr(i, 2)) = 1 Then
j = j + 1
ReDim Preserve arr2(1 To j)
arr2(j) = arr(i, 2)
End If
Next
[c3].Resize(j, 1) = Application.Transpose(arr2)
End Sub

C3表示在C3开始显示
j = j + 1 表示不空行
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-07-13
数据——筛选——高级筛选
第2个回答  2011-07-13
在其中一列做条件格式,用VLOOKUP函数(如果是两行则用HLOOKUP)查找另一列有没有此单元格的数值(借用iserror函数判断),格式怎么突出你自己选。
要在另一列也突出,用同样的方法。
相似回答