字典去重冒泡排序

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了字典去重冒泡排序相关的知识，希望对你有一定的参考价值。

一组数据如图

结果

基础数据是单独的一张表

结果是去掉重复的

按顺序依次排列

请问

这个怎么实现？

啥也别说了

看代码

秒杀

就是这么给力

Option Explicit

Sub 字典去重冒泡排序()

Dim arr, dic, brr, i%, Min, k%, j%

arr = Range("A1").CurrentRegion '相连装数组

Set dic = CreateObject("scripting.dictionary")

'后期绑定字典

For i = 2 To UBound(arr) '循环

dic(arr(i, 1)) = "" '装字典

brr = dic.keys '读出关键字

Min = brr(0) '赋值

For k = 0 To UBound(brr)

For j = k + 1 To UBound(brr)

If brr(k) > brr(j) Then

Min = brr(k) '关键点交换

brr(k) = brr(j)

brr(j) = Min

End If

[c3].Resize(1, 10) = brr

End Sub

操作简单才是硬道理！

以上是关于字典去重冒泡排序的主要内容，如果未能解决你的问题，请参考以下文章