求助EXCEL怎么实现多个关键词搜索多个单元格并按照给定顺序排序!（多问，高分悬赏）

Question

引言：我是一个刚刚入职场的菜鸟还不太会使用EXCEL，但是带我的师傅给我布置了一个变态的任务，最悲剧的是关于EXCEL他什么也没教给我。

现在我的难题如下：

他给我两个表让我根据表一的“请购单号”在表二中找到相应的订单并将“订单/合同号”按照表一顺序一一填写（有三百多个请购单号啊！！！喂~）
（表一）
下面是另外一个表（靠，看底下那五颜六色的页一共有十多个页）
（表二）

我的理解就是做以下三部（只是我个人的理解）：

1、怎么把表二的十多个页合成一个表（这样便于查找，可能吧~）
2、怎么按照表一的全部“请购单号”搜索出表二里所有对应的行
3、如何将搜索出来的结果按照表一进行排序，并按顺序在一个新建sheet里复制对应的行

以上只是我个人的理解，请大神告诉我怎么具体操作（比如用VBA什么的，因为我是个菜鸟所以只会弄个最简单的宏：例如让背景变为红色，所以请告诉我详细步骤，或者直接用QQ远程）
当然不对的也可以指出来并告诉我一个解决方法。

如果答案满意或者你能更多的给予我帮助，我会酌情加分。

感谢！
--------------------------------------------------------分隔符-------------------------------------------------------------------------
补充内容：

谢谢大家的回答，我也找到了个解决办法，把第二个表的关键信息都贴出来之后再和表一逐个对照。介于有好多细节在这里讲不清楚，以及后续出现的问题，如果愿意提供我后续帮助的请加我QQ298004409，标注上您的百度账号。

感谢！

Answer 1

为了操作方便，把文件1复制到文件2的第1张表

运行下面的宏

Sub aaa()
Sheets(1).Activate
For i = 2 To [a65536].End(3).Row
    For j = 2 To Sheets.Count
        With Sheets(j)
        Set MyFind = .Range("H:H").Find(Range("A" & i), lookat:=xlPart)
             If Not MyFind Is Nothing Then
                Cells(i, "D") = MyFind.Offset(, 1)
                Exit For
             End If
        End With
    Next j
Next i
End Sub

Answer 2

仔细看了你的需求，感觉没有必要按照你说的，三个步骤做。
只需要编写一个VBA，循环第二个工作薄的全部工作表，用InStr函数对比找出请购单号所在的位置，通过这个位置，把后面的合同号写进你的目标。
同时还可以在另一个表格标示出这个链接。
不知道这样表述可以么？
然后如果需要我编写，请往我的邮箱发邮件。我会利用休息时间尽快为你编写。

Answer 3

用VLOOKUP函数引导，你不给表出来这样也很难描述给你。或者你可以上网查下怎么用VLOOKUP函数吧，对你索引的东西会有帮助的。

Answer 4

留下Q，可以帮你，速度！