VBA数组的排序_vba函数返回值数组

全栈程序员站长

发布于 2022-11-15 15:23:54

3.4K0

发布于 2022-11-15 15:23:54

文章被收录于专栏：全栈程序员必看

大家好，又见面了，我是你们的朋友全栈君。

我们平时用的表格排序，只相对来说是在在表格中的升序降序。今天就好奇如果数组中实现排序他是怎么实现的呢。

经过一番折腾查找，真是一看吓一跳，真是感觉蚂蚁看大象，发现排序分为：

1,稳定排序与不稳定排序2,内排序和外排序内部排序可分为:直接插入排序、冒泡排序、简单选择排序、希尔排序、快速排序、堆排序、归并排序、基数排序。

今天仅整理了最简单的两种排序。。。先来看下定义和实现的方法吧。

选择排序（Selection sort）是一种简单直观的排序算法。它的工作原理是：第一次从待排序的数据元素中选出最小（或最大）的一个元素，存放在序列的起始位置，然后再从剩余的未排序元素中寻找到最小（大）元素，然后放到已排序的序列的末尾。以此类推，直到全部待排序的数据元素的个数为零。选择排序是不稳定的排序方法。

1.简单选择排序

Sub  选择排序()
Dim i, j, MinIndex As Integer
Dim MinValue As String
arr = Range("a1:a10")
For i = 1 To UBound(arr)
MinValue = arr(i, 1) '将第一个值先默认为最小值
MinIndex = i         '记录最小值的索引位置
For j = MinIndex + 1 To UBound(arr)
If arr(j, 1) < MinValue Then
MinValue = arr(j, 1)
MinIndex = j
End If
Next
'以此和当前的最小值做对比，比较出后面的最小值并记录 值及索引的位置
'因为小的值我们都放在最前面，所以遍历只需从当前值的后面开始就可以了，节省时间
If MinIndex > i Then
arr(MinIndex, 1) = arr(i, 1)
arr(i, 1) = MinValue
End If
'这里的MinIndex和i的关系会有些绕，只会有两个可能，一种是MinIndex > i（在默认最小值的后面有比当前还小的值），另一种MinIndex = i ：（在最小值的后面没有找到比当前值的再小的）。
'【不出现MinIndex < i的情况，只为理解，加不加基本没有影响】
Next
[b1].Resize(UBound(arr), 1) = arr
End Sub

2.冒泡排序

原理： 1、比较相邻的元素。如果第一个比第二个大，就交换他们两个。 2、对每一对相邻元素做同样的工作，从开始第一对到结尾的最后一对。在这一点，最后的元素应该会是最大的数。 3、针对所有的元素重复以上的步骤，除了最后一个。 4、持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。

Sub 冒泡排序()
arr = Range("a1:a10")
For j = 1 To UBound(arr)
For i = 1 To UBound(arr) - 1
If arr(i, 1) > arr(i + 1, 1) Then
MinStr = arr(i + 1, 1)
arr(i + 1, 1) = arr(i, 1)
arr(i, 1) = MinStr
End If
Next
Next j
[b1].Resize(UBound(arr), 1) = arr
End Sub

类别	说明
选择排序	缺点：不稳定，具体怎么不问题不知道。。优点：速度要比冒泡排序快很多
冒泡排序	缺点：速度很慢。。优点：稳定