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

[µo°Ý] Àx¦s®æ¸ê®Æ¤ÀªR

[µo°Ý] Àx¦s®æ¸ê®Æ¤ÀªR

DEAR ALL ¤j¤j
1. RANGE("A1") = M01,MA6,M90,L20,G04,G05,P30,
2.±ý²£¥Í
        RANGE("B1") = M01
     RANGE("B2") = MA6
     RANGE("B3") = M90
     RANGE("B4") = L20
     RANGE("B5") = G04
     RANGE("B6") = G05
     RANGE("B7") = P30
3.½Ð°ÝVAB¦p¦ó®Ñ¼g  ·Ð¤£§[½ç±Ð   THANKS
ù

DEAR ALL ¤j¤j
1. RANGE("A1") = M01,MA6,M90,L20,G04,G05,P30,
2.±ý²£¥Í
        RANGE("B1") = M01
...
rouber590324 µoªí©ó 2015-4-8 14:27


Sub nn()
  Dim lRow&
  Dim aR, aA
  
  aR = Split([A1], ",")
  lRow = 1
  For Each aA In aR
    Cells(lRow, 2) = aA
    lRow = lRow + 1
  Next
End Sub

TOP

DEAR  luhpro  ¤j¤j -
1.§¹¥þ²Å¦X»Ý¨D. THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD