如何用VBA将excel中的一列值进行从小到大排序,然后显示到excel上喔??
来源:百度知道 编辑:UC知道 时间:2024/05/10 13:08:51
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上喔??
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()
Dim arr, i, j, n, tmp
n = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(n)
For i = 2 To n
For j = n To i Step -1
If arr(j, 1) < arr(j - 1, 1) Then
tmp = arr(j, 1)
arr(j, 1) = arr(j - 1, 1)
&nb