- ©«¤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
![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif)
|
¦^´_ 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 |
|