求一个非常难的公式 ，求大大神

fengxinkong

原以为非常简单，现在看来很难。

求一个大大神

我是来讨说法的

这有什么难度，一个字典就搞的了，如果没人弄了，我来弄开一发

1. Function calc(rng As Range, n)
   
2. Dim arr As Variant
   
3. Dim dic As Object
   
4. Dim k As Integer
   
5. Dim temp As String
   
6. Set dic = CreateObject("Scripting.Dictionary")
   
7. k = 1
   
8. arr = rng.Value
   
9. dic(arr(UBound(arr), 2)) = ""
   
10. For i = UBound(arr) - 1 To 1 Step -1
    
11.     For j = 1 To 2
    
12.         If dic.Count = n Then
    
13.             Exit For
    
14.         Else
    
15.             dic(arr(i, j)) = ""
    
16.         End If
    
17.     Next
    
18. Next
    
19. If dic.Count = n Then
    
20.     calc = Join(dic.keys, " ")
    
21. Else
    
22.     calc = "#NA"
    
23. End If
    
24. End Function
    

复制代码

公式有2个参数，第一个参数是数据的选区，第二个是你要返回的个数，你想要返回几个，就填几

fengxinkong

我是来讨说法的 发表于 2018-9-29 16:20
这有什么难度，一个字典就搞的了，如果没人弄了，我来弄

感谢那么多大神 帮我解答 。但是我需要一个做好的，直接可以下载的文档。不然你们发公式，我是小白，不知道怎么应用

wlmhit903

写公式确实比较难，用宏相对简单。而且你发在这个区里，是打算用vba代码实现吗？
关键是你的原始数据，是不是个数和位置是固定的，如果个数位置会有变化那就复杂一点。

wlmhit903

给你个公式版的吧

fengxinkong

wlmhit903 发表于 2018-9-29 16:35
给你个公式版的吧

太完美了  感觉你做的很简单 他们的好复杂

fengxinkong

wlmhit903 发表于 2018-9-29 16:35
给你个公式版的吧

非常感谢 你的公式完美

不知道为什么

mikezhan 发表于 2018-9-29 22:35
楼主三岁小孩智商

哈哈