满足姓名一致时条件，将对应数据填入另一个表中

nxdx112

  1 晚自习费         超课时费         各类奖励         考勤扣发  已发绩效   5个表（固定一样格式）中 比对aa列的姓名与 绩效总表   一样的话，把对应的合计金额填到
绩效总表  对应的列中  
2  绩效总表  姓名列与 工资总表  姓名  一致的话 把 将  绩效总表  中的  实发合计   填到 工资总表 中的 绩效工资 列中

有时可能表中的姓名个数和顺序不一样，但工资总表的姓名是最全的，折腾一天，在但是得帮助下才弄好了框架，最后这点查了好几个小时没有解决

quqiyuan

这个用函数还是方便吧，供参考

ykcbf1100

一键汇总，VBA参与一下。

ykcbf1100

参与一下。。。

1. Sub ykcbf2()  '//2024.6.7
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     For Each sht In Sheets
   
4.         If InStr(sht.Name, "总表") = 0 Then
   
5.             With sht
   
6.                 r = .Cells(Rows.Count, "AC").End(3).Row
   
7.                 arr = [ac1].Resize(r, 2)
   
8.             End With
   
9.             For i = 5 To UBound(arr)
   
10.                 If arr(i, 1) <> Empty Then
    
11.                     s = arr(i, 1) & "|" & sht.Name
    
12.                     d(s) = arr(i, 2)
    
13.                 End If
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     With Sheets("绩效总表")
    
18.         r = .Cells(Rows.Count, 2).End(3).Row
    
19.         For i = 5 To r
    
20.             For j = 6 To 12
    
21.                 s = .Cells(i, 2) & "|" & .Cells(4, j)
    
22.                 If d.exists(s) Then
    
23.                     .Cells(i, j) = d(s)
    
24.                 End If
    
25.             Next
    
26.         Next
    
27.         d.RemoveAll
    
28.         For i = 5 To r
    
29.             s = .Cells(i, 2)
    
30.             d(s) = .Cells(i, 16)
    
31.         Next
    
32.     End With
    
33.     With Sheets("工资总表")
    
34.         r = .Cells(Rows.Count, 2).End(3).Row
    
35.         For i = 5 To r
    
36.             s = .Cells(i, 2)
    
37.             If d.exists(s) Then
    
38.                 .Cells(i, 9) = d(s)
    
39.             Else
    
40.                 .Cells(i, 9) = ""
    
41.             End If
    
42.         Next
    
43.     End With
    
44.     Set d = Nothing
    
45.     MsgBox "统计结束"
    
46. End Sub
    

复制代码

LIUZHU

真的应该用公式来解决，VBA反而不是很方便，因为数据比较多，需要填的金额只有一列

nxdx112

quqiyuan 发表于 2024-6-7 19:16
这个用函数还是方便吧，供参考

请接收迟到的感谢，这个还是函数较为方方便