vba編程:利用隨機函數產生10個二位正整數,然後將這10個數從小到大進行排

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