文章背景： 冒泡排序（Bubble Sort）是排序算法里面比较简单的一个排序，在工作中用到的并不多，主要是想了解其中的算法思想，从而让我们的思维更加开阔。

基本原理：

• 从序列头部开始遍历，两两比较，如果前者比后者大，则交换位置，直到最后将最大的数（本次排序最大的数）交换到无序序列的尾部，从而成为有序序列的一部分；
• 下次遍历时，此前每次遍历后的最大数不再参与排序；
• 多次重复此操作，直到序列排序完成。
• 由于在排序的过程中总是小数往前放，大数往后放，类似于气泡逐渐向上漂浮，所以称作冒泡排序。 程序框图： （示例：一维数组，从小到大排列。）

代码实现：

Option Explicit
Sub BubbleSort()
    Dim n As Integer, temp As Double
    Dim i As Integer, j As Integer
    n = Selection.Rows.Count
    For i = 2 To n
        For j = 2 To n - i + 2
            If Selection.Cells(j - 1, 1) > Selection.Cells(j, 1) Then
                temp = Selection.Cells(j, 1)
                Selection.Cells(j, 1) = Selection.Cells(j - 1, 1)
                Selection.Cells(j - 1, 1) = temp
            End If