不重复后提取对应数据，敬请老师帮忙!叩谢啦！

wtb8152

各位老师好!
       想根据表一的数据提取不重复序号和姓名(这部分已经写好提取不重复的代码)。
      但是接下来根据序号和姓名提取表一第10列和第11列的对应数据本人还无法实现，恳请老师帮个忙赐教一下。谢谢！

wtb8152

怎么老师们都不在啊?敬请老师帮个忙,谢谢啦!

良良

C4

1. =SUMIFS('12月26-1月2日'!$J:$J,'12月26-1月2日'!$A:$A,$A4,'12月26-1月2日'!$E:$E,SUBSTITUTE(C$2,"周","星期"))

复制代码

D4

1. =LOOKUP(1,0/(('12月26-1月2日'!$A$2:$A$4000=$A4)*('12月26-1月2日'!$E$2:$E$4000=SUBSTITUTE(C$2,"周","星期"))*('12月26-1月2日'!$K$2:$K$4000<>"")),'12月26-1月2日'!$K$2:$K$4000)

复制代码

选中C4:D4下拉、右拉。

wtb8152

良良 发表于 2022-2-21 20:48
C4
D4
选中C4:D4下拉、右拉。

谢谢良良老师的指导!非常感激,谢谢!
但是我比较侧重用VBA来完成.不知有老师能帮否?

wtb8152

良良 发表于 2022-2-21 20:48
C4
D4
选中C4:D4下拉、右拉。

D4的公式算不出结果,显示错误.敬请老师帮一下.谢谢!

良良

wtb8152 发表于 2022-2-22 23:32
D4的公式算不出结果,显示错误.敬请老师帮一下.谢谢!

正常显示啊

wtb8152

良良老师您好！感谢您的热心支持!谢谢！
我的是2003版的excel，无法支持第地个公式：第二个公式显示错误，敬请支招一下，谢谢！

wtb8152

良良 发表于 2022-2-23 11:48
正常显示啊

谢谢良良老师！C4的公式仍用D4的公式稍加变化，表一A列是文本型我用函数改变成常规型。
谢谢良良老师提供的函数！

cqzcwboy

'看你自己有写取不重复序号和姓名的VBA代码，你也会字典。你说的问题也可以用字典来做
'关键字使用： 姓名+星期几， 条目使用：全天工作时间（10列）+是否大于5.5小时（11列）
'再在表二双重循环，使用Split拆分关键字和条目就可以

cqzcwboy

cqzcwboy 发表于 2022-3-2 10:28
'看你自己有写取不重复序号和姓名的VBA代码，你也会字典。你说的问题也可以用字典来做
'关键字使用： 姓名 ...

1. Sub 填写()
   
2. Dim d As New Dictionary, arr, i As Long, j As Long, a
   
3. arr = Sheet1.Cells(1, 1).CurrentRegion
   
4. For i = 4 To UBound(arr) Step 3
   
5.     d(arr(i, 3) & "+" & arr(i, 5)) = arr(i, 10) & "+" & arr(i - 2, 11)
   
6. Next
   
7. For i = 4 To Sheet2.Range("b65536").End(xlUp).Row
   
8.     For j = 3 To 15 Step 2
   
9.         a = Split(d(Sheet2.Cells(i, 2) & "+" & Sheet2.Cells(2, j)), "+")
   
10.         Sheet2.Cells(i, j) = a(0)
    
11.         Sheet2.Cells(i, j + 1) = a(1)
    
12.     Next
    
13. Next
    
14. End Sub
    

复制代码