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

wuaijie

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

版主，这个如果数据条数不断增加的话，如何才能保证扩展性呢？
我测试了下，发现再多些，数据就更不上了。出来就是空当

tangdeng520

Sub 工号匹配()
Dim arr, i, j, k, Strk
With Sheets("花名表")
    endrow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
    endcol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
    arr = Range(.Cells(1, 1), .Cells(endrow, endcol))
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To endrow
        For j = 1 To endcol
            If Left(arr(i, j), 1) = "T" Then
                dic.Add arr(i + 1, j), arr(i, j)
            End If
        Next
    Next
End With

For k = 2 To Sheets("查找表").Cells(Sheets("查找表").Rows.Count, "A").End(xlUp).Row
    Strk = Sheets("查找表").Cells(k, 1)
    If dic.Exists(Strk) Then
        Sheets("查找表").Cells(k, 2) = dic.Item(Strk)
    End If
Next

End Sub

wuaijie

tangdeng520 发表于 2023-5-25 16:43
Sub 工号匹配()
Dim arr, i, j, k, Strk
With Sheets("花名表")

谢谢老师，再请教一个问题如果碰到重名的情况该如何处理呢？

tangdeng520

wuaijie 发表于 2023-5-29 09:07
谢谢老师，再请教一个问题如果碰到重名的情况该如何处理呢？

重名的从程序上可以保留第一个名字，但是按照现有条件，发生这种情况从逻辑上来说程序没法判断，因为一个名字对应多种工号了。最理想的是知道工号去找名字，因为工号是唯一的。所以你应该提前把重名的识别出来，在数据源里改成张三、李四1、李四2、王五...