- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
5#
發表於 2015-9-23 18:33
| 只看該作者
回復 4# d8722468 - Sub ex()
- Dim rng As Range
- Dim arr()
- For Each rng In Range("C2:c9")
- If rng = "" Then GoTo 99
- For i = 1 To rng.Value
- x = x + 1
- ReDim Preserve arr(1 To 3, 1 To x)
- arr(1, x) = rng.Offset(, -2)
- arr(2, x) = rng.Offset(, -1)
- arr(3, x) = 1
- Next
- Next
- 99:
- [A2].Resize(UBound(arr, 2), 3) = Application.WorksheetFunction.Transpose(arr)
- End Sub
複製代碼 |
|