Range(\"大众A1:C\"大众 & Myrows).Sort Key1:=Range(\"大众a1\"大众), Order1:=xlAscending, Key2:=Range( _
\"大众b1\"大众), Order2:=xlAscending, Key3:=Range(\"大众c1\公众), Order3:=xlDescending, _
Header:=xlYes
第一排序是Range(\公众a1\"大众),是升序,第二排序条件是Range(\"大众b1\"大众),也是升序,第三排序条件是Range(\公众c1\"大众),是降序，上述的排序非常的大略明了。大家要好好节制，但实际的事情中也有最为普通的排序哀求。还有便是我们要理解排序的理论，我们今日讲解的是冒泡排序在VBA中的实现。在排序中，冒泡排序是最为基本的排序方法，我们可以借鉴这种思路。
实例：如下的数据：
我们要把数据按人为多少进行排序，并把排序后的数据放在G列和H列，下面看代码：
Sub mynzsz_50() '第50讲 冒泡排序在VBA中的实现
Dim myarr As Variant
Sheets(\"大众50\"大众).Select
myarr = Range(\"大众a2:b\"大众 & Range(\公众a2\公众).End(xlDown).Row)
For i = UBound(myarr) To 1 Step -1
For j = 1 To i - 1
If myarr(j, 2) >= myarr(j + 1, 2) Then '比较相邻数据
Temp1 = myarr(j, 1)
Temp2 = myarr(j, 2)
myarr(j, 1) = myarr(j + 1, 1) '交流位置
myarr(j, 2) = myarr(j + 1, 2) '交流位置
myarr(j + 1, 1) = Temp1
myarr(j + 1, 2) = Temp2
End If
Next j
Next i
Range(\"大众g2\"大众).Resize(UBound(myarr), 2) = myarr
End Sub
代码截图：
代码解析：
1 上述代码实现了数据冒泡排序。并把排序后的数据放在了G，H列。
2 myarr = Range(\公众a2:b\"大众 & Range(\"大众a2\"大众).End(xlDown).Row)
将源数据放到数组中。
3 For i = UBound(myarr) To 1 Step -1
For j = 1 To i - 1
If myarr(j, 2) >= myarr(j + 1, 2) Then '比较相邻数据
Temp1 = myarr(j, 1)
Temp2 = myarr(j, 2)
myarr(j, 1) = myarr(j + 1, 1) '交流位置
myarr(j, 2) = myarr(j + 1, 2) '交流位置
myarr(j + 1, 1) = Temp1
myarr(j + 1, 2) = Temp2
End If
Next j
Next i
上述代码在数组中建立了两个循环，第一个循环是即外层的循环是数组的整体循环，是反方向来进行的，对付进入循环的每一个数值，开始内层的循环，在内层的循环中的浸染便是交流位置，将每一个数值放到得当的位置，在交流位置的时候，要用两个变量把原位置的数暂时存放一下，然后交流，交流好后，将临时存放的数再放回到新的位置，要把稳先下后上的原则。
4 Range(\公众g2\公众).Resize(UBound(myarr), 2) = myarr
上述代码将排好的数据回填到事情表中。
下面看代码的运行结果：
今日内容回向：
1 如何理解冒泡排序？
2 冒泡排序在数组中是如何实现的？
