在模块中添加： Sub BobbleSort(list() As String) Dim First As Integer, Last As IntegerDim temp As StringFirst = 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 jNext iEnd Sub Public Sub sort1()Dim list1(10) As StringFor i = 0 To 10  list1(i) = Cells(i + 1, 1)Next iBobbleSort list1For i = 1 To 10  Cells(i + 1, 2) = list1(i)Next iEnd Sub

评论