求助：两表数据比较大小

aluoyo

将1表和2表中相同工号最大分数值比对出来，同时“工号”列整理出包含1表和2表所出现的所有工号。谢谢

grf1973

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 1 To 2
   
4.         arr = Worksheets(i).[a1].CurrentRegion
   
5.         For j = 2 To UBound(arr)
   
6.             gh = arr(j, 1): fs = arr(j, 2)
   
7.             If d(gh) < fs Then d(gh) = fs
   
8.         Next
   
9.     Next
   
10.     Sheet3.[a2:b10000].ClearContents
    
11.     Sheet3.[a2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
12.     Sheet3.[b2].Resize(d.Count, 1) = Application.Transpose(d.items)
    
13. End Sub
    

复制代码

grf1973

请看附件。

aluoyo

无比感谢！！！！虽然不会编程，看不懂你处理的原理和过程，但是很佩服，很感激！学习中……
有没有函数公式可以实现这目的？请教了。