- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 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
½Æ»s¥N½X |
|