Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
for i = 1 to i_1
dic(sheet(1).cells(i, 1).value) = 1
next i
j = 1
for i = 1 to i_2
if dic.exists(sheet(2).cells(i,1).value) then
sheet(3).cells(j, 1).value = sheet(2).cells(i,1).value
j = j + 1
end if
next i 作者: 史莱姆 时间: 2010-12-13 13:56