excel vba 20個數字分組成4組(隨機) - Excel程式區

[發問] excel vba 20個數字分組成4組(隨機)

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

1^# 跳轉到 »

發表於 2014-12-10 09:36 | 顯示全部帖子

回復 1# tray1203

Sub test()
Dim Ary(1, 19), Rng As Range
Cells.Clear
[a1] = "資料"
[b1] = "亂數排列"
For i = 0 To 19
Ary(0, i) = i + 1
Ary(1, i) = Int(Rnd() * 100) '取亂數值
Next
With ActiveSheet
Set Rng = .[a2:b2].Resize(UBound(Ary, 2) + 1) '設定儲存格數
Rng.Value = Application.Transpose(Ary) '將Ary的陣列資料存入儲存格中
[a2:b2].Resize(UBound(Ary, 2) + 1).Select '選取儲存格的資料
Selection.Sort Key1:=Rng(2), Order1:=xlAscending, Header:=xlNo '依亂數由小至大排序
End With
For i = 1 To 4
Cells((i - 1) * 5 + 2, 1).Resize(5).Copy
Cells(i + 1, 4) = "第 " & i & " 組"
Cells(i + 1, 5).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True '儲存格轉置
Next
End Sub

複製代碼

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。