怎么把两份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

可以用vlookup函数或者if函数判断。