如何將兩列中的重複資料提取出來

有a、b兩列資料，我現在想把這兩列資料中相同的資料提取出來，放到c列中

subyy()

dimdasobject,i%,arr,arr2()

setd=createobject("scripting.dictionary")

arr=[a3].currentregion

fori=1toubound(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

fori=1toubound(arr)

ifd(arr(i,2))=1then

j=j+1

redimpreservearr2(1toj)

arr2(j)=arr(i,2)

endif

next

[c3].resize(j,1)=application.transpose(arr2)

endsub

c3表示在c3開始顯示

j=j+1表示不空行