第1个回答 推荐于2017-09-08
步骤1、在Sheet3的B2单元格输入以下公式,然后向下填充公式
=IFERROR(VLOOKUP(A2,Sheet1!A:B,2,0),"")
步骤2、在Sheet3的C2单元格输入以下公式,然后向下填充公式
=IFERROR(VLOOKUP(A2,Sheet2!A:B,2,0),"")
详见附图同表举例
第2个回答 推荐于2017-09-12
还是用vlookup 这个很实用的,你可以看看帮助
表1(Sheet1),表2(Sheet2)和你填的一样
表3(把第一列填上)
第二列公式为:=VLOOKUP(A1,Sheet1!A:B,2,FALSE)
第三列公式为:=VLOOKUP(A1,Sheet2!A:B,2,FALSE)本回答被提问者和网友采纳
第3个回答 2012-07-18
Sub 整理数据()
i = 1
Do Until Sheet1.Cells(i, 1) = ""
j = 1
c = 0
Do Until Sheet3.Cells(j, 1) = ""
If Sheet1.Cells(i, 1) = Sheet3.Cells(j, 1) Then
Sheet3.Cells(j, 2) = Sheet1.Cells(i, 2)
c = 1
Exit Do
End If
j = j + 1
Loop
If c = 0 Then
Sheet3.Cells(j, 1) = Sheet1.Cells(i, 1)
Sheet3.Cells(j, 2) = Sheet1.Cells(i, 2)
End If
i = i + 1
Loop
i = 1
Do Until Sheet2.Cells(i, 1) = ""
j = 1
c = 0
Do Until Sheet3.Cells(j, 1) = ""
If Sheet2.Cells(i, 1) = Sheet3.Cells(j, 1) Then
Sheet3.Cells(j, 3) = Sheet2.Cells(i, 2)
c = 1
Exit Do
End If
j = j + 1
Loop
If c = 0 Then
Sheet3.Cells(j, 1) = Sheet2.Cells(i, 1)
Sheet3.Cells(j, 3) = Sheet2.Cells(i, 2)
End If
i = i + 1
Loop
End Sub
直接粘贴到excel自带的vba编辑器中F5运行;自动整理第一、二个工作表的数据到第三个工作表中;且如果检测到第三个工作表没有检测到姓名项,则自动追加姓名项。自己可以根据实际情况调整。这样实现更灵活,且vblookup如果没找到值则会显示#N\A;影响使用。