ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ±N¤@­ÓÀx¦s®æ¤¤¸ê®Æ¤Á³Î¨ì¦h­ÓÀx¦s®æ

¦^´_ 1# ClareWu


¦³¨S¦³¨Ò¤l,
¨Ò¦p¸ê®Æ¬O¦³ "," ¤À¶},
ÁÙ¬O¥HªÅ®æ¨Ó¤À¶}???

TOP

¦^´_ 3# peter460191


¤£, ¬O¥Î VBA ³B²z, §Ú¥H«e°Ñ¦Ò¹L¤@­Ó¤é´Á¤À³Îªº¨Ò¤l, ¬Ý¬ÝÀ°¤£À°¨ì§A.
  1. Sub Retsubunkatsu()

  2.     Dim myArray() As String
  3.     Dim i As Integer, j As Integer
  4.     For j = 2 To 7
  5.     myArray = Split(Cells(j, 2), " ")
  6.     For i = o To UBound(myArray)
  7.     Cells(j, 4 + i).Value = myArray(i)
  8.     Next i
  9.     Next j
  10.    
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD