Public Sub tt()
Dim a(2 To 100) As Double
Dim i As Integer, j As Integer, n As Integer
Dim t As Double
For i = 0 To n - 1
For j = i + 1 To n - 1
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 0 To n - 1
Next
End Sub
我的从小到大排序程序是这样的~~如何用VBA将excel中的一列值进行从小到大排序,然后显示到excel上喔??
假设源数据在A列,排好的数据输出到B列,代码如下:
Sub s()