排序方法

Sub 升序排序()
Dim 数组(), i As Byte, 升序()
数组 = Array(2, 5, 3, 4, 1)
ReDim 升序(1 To UBound(数组) + 1)
For i = LBound(数组) To UBound(数组)
升序(i + 1) = WorksheetFunction.Small(数组, i + 1)
Next
End Sub

Sub 倒序排序()
Dim 数组(), i As Byte, 倒序()
数组 = Array(2, 5, 3, 4, 1)
ReDim 倒序(1 To UBound(数组) + 1)
For i = LBound(数组) To UBound(数组)
倒序(i + 1) = WorksheetFunction.Large(数组, i + 1)
Next
End Sub

Sub 冒泡排序()
Dim 数组(), 中转 As Byte, x As Byte, y As Byte
数组 = Array(2, 5, 3, 4, 1)
For x = LBound(数组) To UBound(数组)
For y = x + 1 To UBound(数组)
'判断前面那个数是否大于后面那个数，如果大于则交换一个位置
If 数组(x) > 数组(y) Then
中转 = 数组(x)
数组(x) = 数组(y)
数组(y) = 中转
End If
Next
Next
End Sub

你有点理解错了这个byte是相当于c语言里面的char
用来定义一个字符或者字符串