Excel VLookup使用其他列的数据填充相邻单元格中的数据

如何根据列A中的值填写G，H，I列中的数据填写B，C和D列中的数据？

这是我的原始数据

1 1 abc 2 2 def 3 3 ghi 4 4 jkl 5 5 mno 6 6 pqr 7 7 stu 8 8 vwx 9 9 yz aa 10 10 bb cc dd 

最终的结果

  1 abc 1 abc 4 jkl 2 def 3 ghi 3 ghi 5 mno 4 jkl 2 def 5 mno 7 stu 6 pqr 6 pqr 7 stu 8 vwx 8 vwx 10 bb cc dd 9 yz aa 9 yz aa 10 bb cc dd 

列中的1与F中的1匹配，并从G ， H和I提取数据

我可以使用VLOOKUP和只有一个列来做到这一点，但有可能得到VLOOKUP来获取和填充3列的数据？

编辑：

 aa abc bb def cc ghi dd jkl ee mno 

input下面的公式使用Ctrl + Shift + Enter只给我一个

 {=VLOOKUP("aa",$A$1:$D$5,{1,2,3,4},FALSE)} 

Answer 1

我不知道你是如何按照说明，但你需要先select单元格B1 ， C1和D1并没有点击任何其他地方input此公式：

 =VLOOKUP($A1,F:I,{2,3,4},FALSE) 

然后按Ctrl + Shift + Enter 。
现在保持单元格B1 ， C1和D1select并将其缩小，直到列A中有数据

以下是复制数据的截图：

Answer 2

如果你想使用VBA，你可以创build一个简单的FOR循环来find你的值：

 Sub CompleteColumns() Dim lastrow As Long lastrow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To lastrow For y = 2 To lastrow If Range("A" & x).Value = Range("F" & y).Value Then Range("B" & x & ":D" & x).Value = Range("G" & y & ":I" & y).Value Exit For End If Next y Next x End Sub