怎么剔除两份excel表格

1.怎么把两份excel表格合并!并且剔除不相同的内容!剩下相同的数据?

工作表名称：sheet1 sheet2

合并到sheet3

比如要保证A不重复

把这一段拷贝到后台宏 按F5执行 就好了

sub aaa()

set f=application.worksheetfunction

a=1

for i=1 to 65536

if sheets("sheet1").cells(i,1)="" then exit for

if f.countif(sheets("sheet3").range("a:a"), sheets("sheet1").cells(i,1) ) then

sheets("sheet3").cells(a,1)=sheets("sheet1").cells(i,1)

a=a+1

else

end if

next

for i=1 to 65536

if sheets("sheet1").cells(i,1)="" then exit for

if f.countif(sheets("sheet3").range("a:a"), sheets("sheet2").cells(i,1) ) then

sheets("sheet3").cells(a,1)=sheets("sheet2").cells(i,1)

a=a+1

else

end if

next

end sub