- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
- Sub chin()
- Dim s, i%, j%, k%, arr()
- s = [a1:a10]
- For i = 1 To 9
- For j = i + 1 To 10
- k = k + 1
- ReDim Preserve arr(1 To 2, 1 To k)
- arr(1, k) = s(i, 1): arr(2, k) = s(j, 1)
- Next: Next
- [c1].Resize(k, 2) = Application.Transpose(arr)
- End Sub
|
|
發表於 2011-6-1 16:59
| 