- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
以你的思路，可以稍加改變：- Sub Lottery()
- Dim B1%, B2%, B3%, ball%, m&
- Dim arr()
- ball = 49
- For B1 = 1 To ball - 2
- For B2 = B1 + 1 To ball - 1
- For B3 = B2 + 1 To ball
- m = m + 1
- ReDim Preserve arr(1 To 3, 1 To m)
- arr(1, m) = B1
- arr(2, m) = B2
- arr(3, m) = B3
- Next B3, B2, B1
- ActiveSheet.[a1].Resize(m, 3) = Application.Transpose(arr)
- End Sub
|
|
發表於 2011-7-3 08:01
| 