冒泡排序开源代码、拿来即用

冒泡排序开源代码、拿来即用
2018年03月08日 10:35 科技米

原创:字典去重冒泡排序

一组数据如图

结果

基础数据是单独的一张表

结果是去掉重复的

按顺序依次排列

请问

这个怎么实现?

啥也别说了

看代码

秒杀

就是这么给力

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)) = "" '装字典

Next

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

Next

Next

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

End Sub

操作简单才是硬道理!

作者:貓ゞ哥

财经自媒体联盟

新浪首页 语音播报 相关新闻 返回顶部