求助一个进出门管理VBA

r603890740

有没有大神啊！ 希望能够通过姓名工号日期 对应输出 进出时间

想象有限

我的思路有些繁琐，希望对你有所帮助。

papshaw

用power query帮你做了一下，但是因为你的进出时间列内容有些问题，所以出现了一些错误。

r603890740

我现在用VBA，想做到 将查找到的 时间都填入进 对应的表格，不是直接替换。
我现在做的它会直接替换，苦恼

r603890740

现在做的就是 只能覆盖替换

r603890740

Sub 第一版()
    Dim d, ar
    Set d = CreateObject("Scripting.Dictionary")
    ar = Sheet1.Range("A1").CurrentRegion
    For i = 2 To UBound(ar)
        d(ar(i, 2) & ar(i, 3)) = ar(i, 4)
    Next
    For i = 2 To [a65536].End(3).Row
        For j = 3 To [iv1].End(xlToLeft).Column
            Cells(i, j) = d(Cells(i, 2).Value & Cells(1, j).Value)
        Next j, i
    End Sub

r603890740

想要做到 黄色部分 部分的样子  对应的 时间都能够 显示到一个单元格内