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

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

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

¥»©«³Ì«á¥Ñ ClareWu ©ó 2011-9-22 13:04 ½s¿è

½Ð°Ý¦pªþ¥óÀÉ®×
§Ú¸Ó¦p¦ó±NAÄ檺Àx¦s®æ¸ê®Æ, ¥i¥H¨Ì¤º®e¤ÀÄݨì¨ä¥¦¦h­ÓÀx¦s®æ?
¦]¬°¸ê®Æ¸û¦h,¦Ó§Ú·|¥Îªº¥u¯à½Æ»s¦A¶K¤W,³o¼Ë¤Ó®ö¶O®É¶¡¤F
¦A³Â·Ð¦U¦ì¤j¤j«üÂI

¦^´_ 1# ClareWu


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

TOP

¦^´_ 2# jimmyhk

jimmyhk ±z»¡ªº¤èªk¬O¤£¬O¥Î¸ê®Æ­åªRªº¥\¯à¡A¦p¬Oªº¸Ü¡A¥i¸ò±z½Ð±Ð¡y¸ê®Æ­åªR¡zªº¥\¯à¤¤¡uTab¡v©M¡uªÅ®æ¡vªº®t²§¦b¨º¸Ì?¡A¿ï¾Ü¤W¦³¤°»ò¤£¦P¡AÁÂÁ±z!
peter460191

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

«~¦W³W®æ                                                                          §÷½è           «~¦W                            ¤Ø¤o
ASAHI HP-PVC ²§¤T³q (RT)50Ax16A        ¡÷ASAHI HP-PVC        ²§¤T³q (RT)        50Ax16A

¦p¤W©Ò­z, ­ì¨Óªº¸ê®Æ¬O¦b«~¦W³W®æ³o­ÓÄæ¦ì, ²{¦b­n¤À¦¨¤T­Ó¤£¦PÄæ¦ì

TOP

¦^´_ 5# ClareWu

MID¨ç¼ÆÀ³¸Ó¥i¥H²Å¦X±zªº»Ý¨D¡C

TOP

¨SªþÀÉ®×,¸ê®Æ¤S¨S¦³¤@­P©Ê,¸ê®Æ­åªR¤]µL¯à¬°¤O.

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD