Dim i As Integer With ActiveSheet.UsedRange For j = 1 To Sheet2.[a65536].End(3).Row '对某一列需要比对的数据循环find Set rn = Cells.Find(what:=Sheet2.Cells(j, 1).Value, LookAt:=xlPart) 'find的内容 firstval = rn.Address '记录第一个查询到的单元格的位置 i = 1 Sheet2.Cells(i, j + 4).Value = rn.Value '将find的内容记录到sheet2 Debug.Print rn.Value Set rn = .FindNext(after:=rn) '查询下一个赋值给rn i = i + 1 Loop While rn.Address <> firstval '当循环一遍再匹配到第一个单元格时会退出 End With End Sub

代码中标记的很清楚,我们是通过find这个方法来进行查找,
下面这句话是对要匹配的那一列进行循环作为关键字进行查找。

For j = 1 To Sheet2.[a65536].End(3).Row '对某一列需要比对的数据

采用部分匹配进行查找

Set rn = Cells.Find(what:=Sheet2.Cells(j, 1).Value, LookAt:=xlPart) 'find的内容

记录第一个单元格的位置

firstval = rn.Address '记录第一个查询到的单元格的位置

这句话是将查询到的单元格rn.value赋值给sheet2的从第5列(E列)开始的位置,每一列是每一个关键字匹配到的目标sheet中单元格的内容。。
针对最上面进行模拟的表格,那么运行上述代码得到的结果就是如下图: