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

[µo°Ý] ALT+ENTER ¤À¦æªº°ÝÃD

[µo°Ý] ALT+ENTER ¤À¦æªº°ÝÃD

½Ð°Ý¤@¤U

§ÚªºÀx¦s®æ¦³¨Ï¥Î ALT+ENTER ¤À¹j

¦p¦ó§â¦¹®æ¥´´²«áÅܦ¨¤U­±ªº§Î¦¡

ÁöµMGOOGLE¨ìCHAT(10)¥i¸Ñ¨M¤À¹j,¦ý¬OÁÙ¬OµLªk¸Ñ¨M³o­Ó°ÝÃD  

§Æ±æªO¤j­Ì¥i¥H«üÂI¤@¤UBefore       
"aa
bb
cc"        100¤À
dd        50¤À


After       
       
aa        100¤À
bb        100¤À
cc        100¤À
dd        50¤À

Before       
"aa
bb
cc"        100¤À
dd        50¤À


After       
       
aa        100¤À
bb        100¤À
cc        100¤À
dd        50¤À

¥»©«³Ì«á¥Ñ white945 ©ó 2012-8-12 22:53 ½s¿è

¦^´_ 1# asoonla
  1. Sub ¤À³Î()
  2. Dim Ay(), A As Range, Ar As Variant, C As Variant, s&
  3. For Each A In Selection
  4.    Ar = Split(A, Chr(10))
  5.    For Each C In Ar
  6.       ReDim Preserve Ay(2, s)
  7.       Ay(0, s) = C: Ay(1, s) = A.Offset(, 1).Value
  8.       s = s + 1
  9.    Next
  10. Next
  11. Selection(1).Resize(s, 2) = Application.Transpose(Ay)
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD