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

¦p¦óºI¨úªÅ®æ«e¤å¦r

¦p¦óºI¨úªÅ®æ«e¤å¦r

­ì©l¸ê®Æ¦P¤@Àx¦s®æ¤T¦C¤é´Á¦³enter,¦p¦ó¨ú¥X©ñ¦Ü¥kÃä¤TÄæ

ªÅ®æ«e¦r¦ê.zip (6.85 KB)

§Æ±æ¤ä«ù!

¦^´_ 1# s7659109

½Ð°Ñ¦Ò
  1. Sub Dismantling()
  2.     Dim PT As Range, ArrPT, Str, C%
  3.     Set PT = Range("B2")
  4.     ArrPT = Split(PT, Chr(10))
  5.     C = 3
  6.     For Each Str In ArrPT
  7.         If Str <> "" Then PT.Offset(0, C) = Str: C = C + 1
  8.     Next
  9. End Sub
½Æ»s¥N½X
ªÅ®æ«e¦r¦ê.zip (13.52 KB)

TOP

¦^´_ 1# s7659109


    ¦b¸ê®Æ­åªR¡A¤À¹j²Å¸¹->¨ä¥L->¿é¤JCtrl+J©ÎALT+10Áä
¥Nªí´«¦æ¡A¦ý¤£´«Åã²{¦r¤¸

TOP

=TRIM(MID(SUBSTITUTE($B2,CHAR(10),REPT(" ",99)),COLUMN(A$1)*99-98,99))

©T©w8¦ì¼Æ¦r:
=MID($B2,COLUMN(A$1)*9-8,8)

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD