excel表单比较两个不同的列,如果匹配,则将其下两个单元格复制到新列中

嘿家伙PLZ解决这个…
在这里输入图像说明

所以…我想比较列D与A …
在这个例子中…
D1与A2 …匹配…所以我想分别在E1和F1的B2和C2 ….
D2与A6匹配…所以我想分别在E2和F2的B6和C6 ….
我有一个2022年在A列重新编码与D相比…
所以我想要一个公式dat可以通过select比较列来实现我的愿望在一个镜头… 提前感谢

使用索引匹配公式来实现这一点。
在E1单元写下面的公式

=IFERROR(INDEX(B:B,MATCH($D1,$A:$A,0)),"") 

在F1单元格下面写下公式(您也可以在上面的公式中填写)

 =IFERROR(INDEX(C:C,MATCH($D1,$A:$A,0)),"") 

在这里输入图像描述

循环和查找

 Sub SendToRange() Dim Rws As Long, rng As Range, x As Range, c As Range Rws = Cells(Rows.Count, "D").End(xlUp).Row Set rng = Range(Cells(1, "D"), Cells(Rws, "D")) Columns("E:F").ClearContents For Each x In rng.Cells Set c = Range("A:A").Find(what:=x, lookat:=xlWhole) If Not c Is Nothing Then r = c.Row Range(Cells(x.Row, "E"), Cells(x.Row, "F")).Value = Range(Cells(r, 2), Cells(r, 3)).Value Else: Range(Cells(x.Row, "E"), Cells(x.Row, "F")).Value = "N/A" End If Next x End Sub 

试试这个代码

 1st column=vlookup(D1,$A$1:$A$n,2,false) 2nd clumn =vlookup(D1,$A$1:$A$n,3,false)