Sub SequenceRandom()
?'在A列產生順序號
?Randomize Timer
?Dim DataPool(65535) As Integer

?
?rowNum = Range("B65535").End(xlUp).Row - 1
?'MsgBox rowNum
?Sheets("Sheet1").Columns(1).Range("A2:A65535").ClearContents
?For i = 1 To rowNum
? ? ?DataPool(i) = i
?Next
?LastNum = rowNum
?CurrentNum = 0
?Do While CurrentNum < rowNum
? ? Random = Int(Rnd() * LastNum) + 1 '隨機數的范圍
? ??
? ? RandomVal = DataPool(Random)
? ? Cells(CurrentNum + 2, 1) = RandomVal
? ??
? ? '用過的放后面
? ? DataPool(Random) = DataPool(LastNum)
? ? DataPool(LastNum) = RandomVal
? ??
? ? LastNum = LastNum - 1
? ? CurrentNum = CurrentNum + 1
?Loop
?sort
End Sub
?

Sub sort()
? ? Columns("A:A").Select
? ? With ActiveSheet.Sort
? ? ? ? With .SortFields
? ? ? ? ? ? .Clear
? ? ? ? ? ? .Add Key:=Range("A2"), Order:=xlAscending
? ? ? ? End With
? ? ? ? .Header = xlGuess
? ? ? ? .MatchCase = False
? ? ? ? .SortMethod = xlPinYin
? ? ? ? .Orientation = xlSortColumns
? ? ? ? .SetRange Rng:=Range("A2:Z65535")
? ? ? ? .Apply
? ? End With
? ??
? ? 'ActiveWorkbook.Save
End Sub
?

總結

以上是生活随笔為你收集整理的excel随机排序，在A列产生顺序号的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。