考勤表的数据处理问题

z1979

请问如何根据考勤表的内容引用到数据表中。反向操作，根据数据表的内容引用到考勤表中。
引用条件
数据表引用条件，根据年月日姓名引用考勤表中的出勤内容到数据表中。反之，根据条件将考勤表中的数据引用到数据表中。
两工作表的格式不变，行数和列数不固定，有变化。
有些只是提取某人的考勤表和数据表，需要将这些数据录入到数据表和考勤表中。
采用汇总方式操作过程是有问题，需要用数据提取方式实现。
实际数据表格很大，这只是模拟数据。
请老师帮忙解决，谢谢。

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&, k&
   
    Application.ScreenUpdating = False
   
    ar = Worksheets(2).[A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * UBound(ar, 2), 1 To 6)
    For i = 2 To UBound(ar)
        For j = 5 To UBound(ar, 2)
            r = r + 1
            For k = 1 To 3
               br(r, k) = ar(i, k)
            Next k
            br(r, 4) = ar(1, j)
            br(r, 5) = ar(i, 4)
            br(r, 6) = ar(i, j)
        Next j
    Next i
   
   
    With [H2].Resize(r, 6)
        .Borders.LineStyle = xlContinuous
        .Value = br
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

..............

quqiyuan

怎么方便怎么来，PQ一个透视就搞定，供参考。。。


下面是反操作

z1979

gwjkkkkk 发表于 2024-8-18 10:48
..............

非常感谢老师的回复，老师的代码只写出了从数据表引用考勤表的的数据，如果用考勤表的数据引用数据表的数据，那又怎么写，因为数据表是手工录入数据后做成考勤表的这种模式。两个工作表之间的数据经常要做互换的。

z1979

quqiyuan 发表于 2024-8-18 11:38
怎么方便怎么来，PQ一个透视就搞定，供参考。。。

感谢老师的回复，PoweryQuery 小白，没有接触过。只会一些手工数据透视表。公司也是用wps，wps好像没有这个功能。

renkangjizhen

用字典法比较简单

renkangjizhen

Sub 从数据表引用到考勤表()
Dim arr, i%, d, m%, n%, s$, s1$
Sheets("数据表").Select
arr = Range([b1], Cells([b65536].End(3).Row, 6))
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
s1 = arr(i, 1) & arr(i, 2) & arr(i, 3) & arr(i, 4)
d(s1) = arr(i, 5)
Next
Sheets("考勤表").Select
For m = 2 To [b65536].End(3).Row
For n = 5 To Cells(1, 50).End(xlToLeft).Column
s = Cells(m, 2) & Cells(m, 3) & Cells(1, n) & Cells(m, 3)
Cells(m, n) = d(s)
Next n
Next m
End Sub

renkangjizhen

同理，反向提取代码改改即可

z1979

renkangjizhen 发表于 2024-8-18 14:19
同理，反向提取代码改改即可

老师，想法是这样的，问题要会写啊，会修改代码。