office：2列比较,如何挑出数值相同的,还有不同的?例：A列有500个名字,B列有3000个名字,将B列和A列相同的名字放在C列；将B列和A列不同的名字放在D列.）第一个回答：请教怎么插入宏.第二个回

Question

office：2列比较,如何挑出数值相同的,还有不同的?
例：A列有500个名字,B列有3000个名字,将B列和A列相同的名字放在C列；将B列和A列不同的名字放在D列.）
第一个回答：请教怎么插入宏.
第二个回答：好像是错的,相同名字错行的话,结果就不对了.

Answer 1

Sub aaa()
'先把A读到一个变量里
For i = 1 To 500
nameas = nameas & Range("a" & i).Value & ","
Next
ccount = 1
DCount = 1
For i = 1 To 3000
nameb = Range("B" & i).Value
'MsgBox nameb
If (InStr(nameb,nameas) > 0) Then
Cells(ccount,3) = nameb
ccount = ccount + 1
Else
Cells(DCount,4) = nameb
DCount = DCount + 1
End If
Next
End Sub
把这个加到宏里,执行一下试试.