Question

求排序VBA：在EXCEL中[A12：F12]=[5,6,7,2,4,9],现在要使得[A13:F13]=[2,4,5,6,7,9]

求高手写完整代码。

Answer 1

Sub fjdskla()
Dim i As Integer
Dim j As Integer
Dim imax As Integer
Dim temp
Dim arr
arr = [a12:f12]
For i = UBound(arr, 2) To 2 Step -1
    imax = 1
    For j = 1 To i - 1
        If arr(1, j) > arr(1, imax) Then imax = j
    Next j
    If arr(1, i) < arr(1, imax) Then
        temp = arr(1, i)
        arr(1, i) = arr(1, imax)
        arr(1, imax) = temp
    End If
Next i
[a13:f13] = arr 
End Sub

Answer 2

非要用VBA？
公式可以不？
A13：
=SMALL($A12:$F12,COLUMN(A1))
右拉复制公式！

Answer 3

Sub Macro1()
    Range("A12:F12").Copy Range("A13")
    Range("A13:F13").Sort Key1:=Range("A13")
End Sub