第2个回答 2013-12-19
用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