[已解决]万分紧急，不知道为什么两边总数不一样？？

三井猪

将表2的合计转到表1,怎么到了表1的合计就不一样呢？就是全部合计，表2合计和表1合计不一样？、？万分紧急，谢谢

最佳答案

月排行榜 / 总排行榜

baksy

2014-5-21 14:32

三井猪 发表于 2014-5-21 14:05
请问将表1表2的职号和姓名整理到表3是怎么整理的，是一个个弄，还是有更快捷的方法？？请指教，感激不尽！ ...

把表1和表2的职号和姓名全部复制到表3的A、B列
B列升序排列后用公式 C2=if（（A2=A1）*（B2=B1），“X”，“”）挑选重复行
复制C列粘贴到原位数值粘贴
C列排序删除打“x"的行。

跳转到最佳答案楼层

三井猪

表2的总合计是：

383579

表1的总合计是：

380459

不知道究竟少了谁的？

lisachen

工资 工作表 (3)11.rar (34.76 KB, 下载次数: 19)

2014-5-20 15:42 上传

点击文件名下载附件 这是给你筛选出来的差异，两个表相差实在太大

baksy

在表1的R2输入以下公式下拉
=IF(Q2-VLOOKUP(C2,'2'!B$2:P$133,15,)>1,"有误","")
发现第125行的WNH066有误
请查询表2中有两个WNH066的值。
看来有很多不一样的数据，
具体还要进行对比、过滤重复等作业。

三井猪

baksy 发表于 2014-5-20 15:54
在表1的R2输入以下公式下拉
=IF(Q2-VLOOKUP(C2,'2'!B$2:P$133,15,)>1,"有误","")
发现第125行的WNH066有误 ...

我是用名字来查找值的，主要是想找出怎么两边的总合计为什么不一样的？主要是哪里少了，表1中少了3千多

baksy

在表2的Q2输入以下公式下拉
=COUNTIF(C$2:C$133,C2)
发现王仁波重名，表1中还没有这个名。

baksy

表1中的以下人在表2中缺少或重名

11	WNH425	王二波	五金
56	WNH436	彭星吉	包装A
131	WNH397	罗建	磨光B
139	WNH094	员孟孟	磨光线外

baksy

表2中的以下人在表1中没有

38	WNH397	罗健	4630
63	WNH094	员猛猛	3483
64	W77H8	于军军	320
66	WNH339	周爱莲	2506
86	WNH436	彭吉星	2635

grf1973

在sheet3中下列代码：

1. Sub tt()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     brr = Sheet2.[a1].CurrentRegion
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     Set d1 = CreateObject("scripting.dictionary")
   
6.     Set d2 = CreateObject("scripting.dictionary")
   
7.     For i = 2 To UBound(arr)
   
8.         xm = Trim(arr(i, 4))
   
9.         If Len(xm) > 0 Then
   
10.             d(xm) = ""
    
11.             d1(xm) = arr(i, 17)
    
12.         End If
    
13.     Next
    
14.     For i = 2 To UBound(brr)
    
15.         xm = Trim(brr(i, 3))
    
16.         If Len(xm) > 0 Then
    
17.             d(xm) = ""
    
18.             d2(xm) = brr(i, 16)
    
19.         End If
    
20.     Next
    
21.     With Sheet3
    
22.         .UsedRange.Clear
    
23.         .[a1].Resize(1, 4) = Array("姓名", "表1数", "表2数", "差值")
    
24.         .[a2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
25.         crr = .[a1].CurrentRegion
    
26.         For i = 2 To UBound(crr)
    
27.             xm = crr(i, 1)
    
28.             crr(i, 2) = d1(xm): crr(i, 3) = d2(xm)
    
29.             crr(i, 4) = crr(i, 2) - crr(i, 3)
    
30.         Next
    
31.         .[a1].CurrentRegion = crr
    
32.     End With
    
33. End Sub
    

复制代码

grf1973

请看附件。前面两张表中名字有的写错了。可以对照纠错表改过后重新按钮。