å·¥ä½è¡¨å称: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
温馨提示:答案为网友推荐,仅供参考