关于如何把excel中两列中相同的数值筛选出来？的问题
你好如何将两列中的重复数据提取出来
有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 表示不空行。
