- ©«¤l
- 107
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 127
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-29
- ³Ì«áµn¿ý
- 2025-1-28
|
¦^´_ 3# peter460191
¤£, ¬O¥Î VBA ³B²z, §Ú¥H«e°Ñ¦Ò¹L¤@Ó¤é´Á¤À³Îªº¨Ò¤l, ¬Ý¬ÝÀ°¤£À°¨ì§A.- Sub Retsubunkatsu()
- Dim myArray() As String
- Dim i As Integer, j As Integer
- For j = 2 To 7
- myArray = Split(Cells(j, 2), " ")
- For i = o To UBound(myArray)
- Cells(j, 4 + i).Value = myArray(i)
- Next i
- Next j
-
- End Sub
½Æ»s¥N½X |
|