假设表名分别为SHEET1，SHEET2，SHEET3;如果更改了表名则，SHEET1需改为SHEETS("实际表名")
sub fz()
dim i,j,k
j=1
i=1
do while sheet1.cells(i,6)<>""
k=1
do while sheet2.cells(k,5)<>""
if sheet1.cells(i,6)=sheet2.cells(k,5) then
sheet3.range( j & ":" & j) =sheet1.range(i & ":" & i)
j=j+1
end if
k=k+1
loop
i=i+1
loop
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024