- 帖子
- 59
- 主題
- 5
- 精華
- 0
- 積分
- 75
- 點名
- 285
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 基隆
- 註冊時間
- 2012-7-5
- 最後登錄
- 2026-10-31
          
|
回復 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
|
|
發表於 2014-12-10 09:36
| 