- ©«¤l
- 97
- ¥DÃD
- 32
- ºëµØ
- 0
- ¿n¤À
- 167
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-22
- ³Ì«áµn¿ý
- 2017-8-16
|
¦^´_ 6# Hsieh
ÁÂÁ¦U¦ì«e½úÀ°¦£~§Ú¤]ÃB¥~¾Ç¨ì¨âºØ¤è¦¡
¤U±¬O§Úèè©Ò·Q¨ìªº~¤]¤@¨Ö¤À¨É- Sub test()
- Sheets("1").Select
- Dim iCount, iColumn, x, y As Integer
- iCount = Range("A3", Range("A3").End(xlToRight)).Count
- Range("A3").Select
- y = 0
- For x = 1 To iCount
- Range(Cells(3, x), Cells(3, x).End(xlDown)).Select
- iColumn = Range(Cells(3, x), Cells(3, x).End(xlDown)).Count
- Selection.Copy Sheets("2").Cells(4 + y, 1)
- y = y + iColumn
- Next
- End Sub
½Æ»s¥N½X |
|