如何在excel2003一个工作表中检索出另一个工作表里的相同数据

来源：百度知道 编辑：UC知道 时间：2024/06/01 18:43:51
怎么样在一个工作簿里的两个工作表中快速检索出相同的数据.
例如，笔者学校最近进行学生资料造册工作，很多老师都在苦恼，有没有办法将手中的200名学生名单在学校总的学生名单册（3000人的Excel2003工作表）中快速找出来？
数据有可能不是惟一的
假如
学校总的学生名单册中有张三名字一个,但是我手中的名单中有张三名字三个
另一情况为:学校名单册中有李四的名字三个,但我手中的名单有可能也会有五个
急!!!!!!!!向虾赐教.

sub TEST（）
On Error Resume Next '
Dim d As Object
Dim c As Range
Dim rng, rng1 As Range
Set rng1 = Range("A2: A65536") '这里可以更换成你原有的张三列
Set rng = Range("B2: B65536") '这是输出列

If Not rng Is Nothing Then

Set d = CreateObject("scripting.dictionary")

For Each c In rng1

If Not d.Exists(c.Value) Then

d.Add c.Value, ""

End If

Next
rng.Resize(d.Count, 1) = Application.Transpose(d.Keys)

Set d = Nothing
Set rng = Nothing

End If
End Sub
第二步，用Vlookup函数搞定，也可以代码！
函数要简单些，代码要快些！具体怎么使用这个函数，你可以上网查一下！

你可以把另外一个工作表也导入到这个工作表后，然后编辑，查找！！
就会发现有没有共同之处了 ！！！
你试试看，我也没有遇到过这样的问题！！！！！