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

rouber590324

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

rouber590324

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

luhpro

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