可将全部工号、姓名做一个字典表——并排好序!
在明细表的有关单元格根据工号取姓名——如,可在B列
——B2=VLOOKUP(MID(A2,1,6),字典表!$A$1:$B$100,2).......
你参考一下下面的图吧!
Sub 宏1()
'
' 宏1 宏
Dim i, j
For j = 2 To 30
For i = 2 To 30
If Sheet1.Cells(i, 1) Like "*" & Sheet2.Cells(j, 1) & "*" Then Sheet1.Cells(i, 2) = Sheet2.Cells(j, 2)
Next
Next
End Sub
写了个宏,你根据你自己的表把i,j的值调整下,应该可以的,或者不涉及保密的话,你把你的文件发出来吧
如图片所示:
B2输入=INDIRECT("E"&SUM(IF(ISNUMBER(FIND($E$2:$E$5,A2)),ROW($E$2:$E$5),"")))
SHIFT+CTRL+ENTER 三键结束,下拉填充。
C2输入=VLOOKUP(B2,$E$2:$F$5,2,0) 下拉填充。
完成!
若图1为sheet1,图2为sheet2
sheet1中B2输入 =left(A2,6)&vlookup(left(A2,6),sheet2!A:B,2,)
index(SHEET2!B:B,match(right(SHEET1!A1,6),SHEET2!A:A,0)