[已解决]重发：从最后一行开始往上找，须在B列中找出5个数字，重复的只要一次，如B

ccic

如表，从最后一行开始往上找，须在B列中找出5个数字，重复的只要一次，如B列中找出5个数字是72695，请问在exel中如何设计公式？

序号	数据
1	6
2	3
3	6
4	6
5	0
6	2
7	8
8	9
9	1
10	9
11	1
12	2
13	3
14	5
15	9
16	5
17	9
18	6
19	2
20	7
21	2
22	7

如表，从最后一行开始往上找，须在B列中找出5个数字，重复的只要一次，如B列中找出5个数字是72695，请问在exel中如何设计公式？

[此贴子已经被作者于2010-12-6 8:25:03编辑过]

最佳答案

月排行榜 / 总排行榜

那么的帅

2010-12-6 09:25

来个函数公式的

SjPwvw4t.rar (2.44 KB, 下载次数: 37)

2010-12-6 09:25 上传

点击文件名下载附件
重发：从最后一行开始往上找，须在B列中找出5个数字，重复的只要一次，如B列中找出5个数字是72695，请问在

跳转到最佳答案楼层

wayy

公式很麻烦，给个代码的。

Sub wayy()
Dim d As Object
Dim i As Long
Dim Str As String
Dim Arr
Set d = CreateObject("Scripting.Dictionary")
Arr = Range("B1", [b65536].End(xlUp))
For i = UBound(Arr) To 1 Step -1
 d(Arr(i, 1)) = Arr(i, 1)
 Str = Str & Arr(i, 1)
 If d.Count > 5 Then
  [c1].Resize(1, 5) = d.items
  Exit Sub
 End If
Next
End Sub

wayy

直接显示的：

Sub wayy()
Dim d As Object
Dim i As Long
Dim x As Long
Dim Str As String
Dim Arr
Set d = CreateObject("Scripting.Dictionary")
Arr = Range("B1", [b65536].End(xlUp))
For i = UBound(Arr) To 1 Step -1
 d(Arr(i, 1)) = Arr(i, 1)
 If d.Count > 5 Then
  Arr = Application.Transpose(d.items)
  For x = 1 To 5
    Str = Str & Arr(x, 1)
  Next
  MsgBox Str
  Exit Sub
 End If
Next
End Sub

ccic

非常感谢大侠，只是我不懂代码怎么用

那么的帅

来个函数公式的

SjPwvw4t.rar (2.44 KB, 下载次数: 37)

2010-12-6 09:25 上传

点击文件名下载附件
重发：从最后一行开始往上找，须在B列中找出5个数字，重复的只要一次，如B列中找出5个数字是72695，请问在

ccic

公式非常漂亮，能复制到其他地方用吗？

wayy

QUOTE:

以下是引用ccic在2010-12-6 9:36:00的发言：

公式非常漂亮，能复制到其他地方用吗？

注意下有个自定义名称就可以了。

那么的帅

QUOTE:

以下是引用ccic在2010-12-6 9:36:00的发言：

公式非常漂亮，能复制到其他地方用吗？

可以把别处的数据复制粘贴到这里使用

往外粘贴要注意有个自定义名称。

ccic

非常感谢大侠们，学习了

simonguo

学习