vba编程:利用随机函数产生10个二位正整数,然后将这10个数从小到大进行排

Question

vba编程:利用随机函数产生10个二位正整数,然后将这10个数从小到大进行排序,并将排序结果显示出来

Answer 1

Sub å®1()
    Randomize
    For i = 1 To 10
        Cells(i, 1) = Int(10 + Rnd * 90)
    Next
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:A10")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub