在模块中添加：

Sub BobbleSort(list() As String)

Dim First As Integer, Last As Integer
Dim temp As String
First = LBound(list) '取数组上界
Last = UBound(list) '取数组下界
For i = First To Last - 1
    For j = i + 1 To Last
        If list(i) > list(j) Then
            temp = list(j)
            list(j) = list(i)
            list(i) = temp
        End If
    Next j
Next i
End Sub

Public Sub sort1()
Dim list1(10) As String
For i = 0 To 10
  list1(i) = Cells(i + 1, 1)
Next i
BobbleSort list1
For i = 1 To 10
  Cells(i + 1, 2) = list1(i)
Next i
End Sub

评论