不规范数据，如何实现查找

wuaijie

如案例所示，根据“查找表”姓名一列查找“工号”的数据，数据源在“花名表”的内容中找，但数据源这种格式属于不规范的内容，请老师们看下如何变为规范数据，在函数帖子了找不到解决方案，看看vba这里能否解决。先谢谢了
原数据有几千条，我选了几条，请大家给个帮助

无敌小猪猪

仅供参考！

蓝桥玄霜

查找的例子：

ZHLK

Sub 宏1()
Dim mycell As Range
Range("B2:B10").ClearContents
For i = 2 To 10
    Set mycell = Sheet1.Cells.Find(What:=Cells(i, 1), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False)
    Cells(i, 2) = mycell.Offset(-1, 0)
Next i
End Sub

wuaijie

无敌小猪猪 发表于 2023-5-25 09:33
仅供参考！

谢谢老师，来我学习下

wuaijie

蓝桥玄霜 发表于 2023-5-25 09:33
查找的例子：

谢谢老师，来我学习下

tel3033

供参考……

wuaijie

tel3033 发表于 2023-5-25 10:01
供参考……

谢谢，这个涉及到字典用法，来我学习下

ykcbf1100

这么多老师写了代码，楼主不送2朵小花鼓励一下吗？

wuaijie

ZHLK 发表于 2023-5-25 09:34
Sub 宏1()
Dim mycell As Range
Range("B2:B10").ClearContents

这个代码遇到没有的数据就不行了，是不是加一个if……then 语句就可以了？