用VBA。
假设的的数据表在Sheet1,你在Sheet2的A列中输入你要查的人名,从第一行往下一行输入人名,每一行输一个人名。即:
A1单元格输“张三”,A2单元格输“李四“,A3单元格输“王五”...,输完人名,运行下面代码,
如果你要查的人名在数据表Sheet1中存在,则这些人名就出现在Sheet2表的右侧(代码中指定出现在第3列)。
Sub
LOOKING()
Dim
K,
Q
As
Integer
For
K
=
1
To
Sheet1.[B65536].End(xlUp).Row
For
Q
=
1
To
Sheet2.[a65536].End(xlUp).Row
If
Trim(Sheet1.Cells(K,
2))
=
Trim(Sheet2.Cells(Q,
1))
Or
Trim(Sheet1.Cells(K,
4))
=
Trim(Sheet2.Cells(Q,
1))
Then
Sheet2.Cells(Q,
3)
=
Sheet1.Cells(K,
2)
End
If
If
Trim(Sheet1.Cells(K,
4))
=
Trim(Sheet2.Cells(Q,
1))
Then
Sheet2.Cells(Q,
3)
=
Sheet1.Cells(K,
4)
End
If
Next
Q
Next
K
End
Sub
温馨提示:答案为网友推荐,仅供参考