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

全栈程序员-用户IM • 2022年11月2日下午11:00 • 未分类

大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全家桶1年46，售后保障稳定

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

经过一番折腾查找，真是一看吓一跳，真是感觉蚂蚁看大象，发现排序分为：
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

Jetbrains全家桶1年46，售后保障稳定

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

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