[已解决]求教取A列姓名不同人的第一行所有数据

eikok

求教取A列姓名不同人的第一行所有数据

最佳答案

月排行榜 / 总排行榜

tgydslr

2014-1-17 08:08

跳转到最佳答案楼层

tgydslr

风林火山

1. Sub test()
   
2.     Dim arr, k%, d As Object
   
3.     arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For k = 2 To UBound(arr)
   
6.         If d.exists(arr(k, 1)) = False Then
   
7.             d(arr(k, 1)) = arr(k, 2)
   
8.         End If
   
9.     Next
   
10.     Range("d1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
11.     Range("f1").Resize(d.Count, 1) = Application.Transpose(d.items)
    
12. 
    
13. End Sub

复制代码

tgydslr

函数的话d9

1. =INDIRECT("B"&MATCH(D9,A:A,))

复制代码

下拉

ccentaurc2005

学习了，谢谢！！！{:2012:}