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

[µo°Ý] ½Ð°Ý­n¦p¦ó±N¤G¦C¤À§O¶K¨ì吚¤GÄæ©O?

[µo°Ý] ½Ð°Ý­n¦p¦ó±N¤G¦C¤À§O¶K¨ì吚¤GÄæ©O?

¦U¦ì¤j¤j: ¦pÃD
1.JPG
­n¦p¦ó§âa2Ä檺¤G¦C¤À§O¶K¨ìb2Äæ©Mc2Äæ

¦^´_ 1# gctsai


    ±zªº¸ê®ÆÅãµM¦b¦P¤@®æ¤º¦³¥Î "ALT+Enter"´«¦æ
¤èªk¤@: ¸ê®Æ=> ¸ê®Æ­åªR=> ¤À¹j²Å¸¹ => ¿ï¨ä¥L: Áä¤JALT+10
data.gif

¤èªk¤G:¥Î¤½¦¡
¥H=find("[«ö¦íALT+Enter´«¦æ]",a2)¨ú±o´«¦æ¦ì¤¸¼Æ
¦A¥Hmid¤½¦¡¨ú±o¨â¦C¸ê®Æ
solution.rar (1.39 KB)
¥HA2¬°¨Ò:
¦bE2Áä¤J¤½¦¡=FIND("
",A2)  
¨ú±o´«¦æ¦ì¤¸¼Æ¬°4 (E2ªº­È)
B2Áä¤J¤½¦¡=MID($A2,1,$E2-1)
C2Áä¤J¤½¦¡=MID($A2,$E$2+1,LEN($A2)-$E2)

TOP

¥»©«³Ì«á¥Ñ Happkkevin ©ó 2011-8-7 19:21 ½s¿è

¦¹¾A¥Î¦h¸ê®Æ¹B¥Î¡A¥H Split ¥[¤W Chr(10) ¤Á³Î¤å¦r
  1. Dim myArray() As String
  2.     Dim i As Integer, j As Integer
  3.     Dim KROWEND%
  4.    
  5.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  6.     For j = 1 To KROWEND
  7.         myArray = Split(Cells(j, 1), Chr(10))
  8.         For i = 0 To UBound(myArray)
  9.             Cells(j, 2 + i).Value = myArray(i)
  10.         Next i
  11.     Next j
½Æ»s¥N½X
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# Happkkevin

¤j¤j:µ{¦¡¬O¥i¥H¥Îªº,¦ý¬O
       1.¼Æ¦r³Ì«e­±ªº0¤£¨£¤F?
          2.¦pªG¬O¶K¨ìsheet2ªºa2,b2©O?

TOP

¦^´_ 4# gctsai
  1. Sub RetsuBunKatsu1()
  2.     Dim myArray() As String
  3.     Dim i As Integer, j As Integer
  4.     Dim KROWEND%
  5.    
  6.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  7.     For j = 1 To KROWEND
  8.         myArray = Split(Cells(j, 1), Chr(10))
  9.         For i = 0 To UBound(myArray)
  10.            Sheets("sheet4").Cells(j, 1 + i).Value = myArray(i)
  11.         Next i
  12.     Next j
  13. End Sub


  14.    
½Æ»s¥N½X
Sheets("sheet4").Cells(j, 1 + i)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 5# Happkkevin

¤j¤j:¥i¬O¼Æ¦r«e­±ªº0ÁÙ¬O¤£¨£¤F
  ¦p:­ì¥ý¬O008010114106
      ¶K¨ìsheet2«áÅܦ¨ 8010114106¤F

TOP

¥»©«³Ì«á¥Ñ Happkkevin ©ó 2011-8-8 22:15 ½s¿è

¦^´_ 6# gctsai
­Y¬°©T©w 13 ¦ì¡A¨Ï¥Î NumberFormatLocal­×¥¿¡AÁÙ¦b¾Ç²ß¤¤
©Ò¥H¦³¨Ç§bªO¡A§Æ±æ¦³«ØijªÌ§iª¾
  1.     Dim myArray() As String
  2.     Dim i As Integer, j As Integer
  3.     Dim KROWEND%
  4.    
  5.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  6.     For j = 1 To KROWEND
  7.         myArray = Split(Cells(j, 1), Chr(10))
  8.         For i = 0 To UBound(myArray)
  9.             Sheets("sheet2").Cells(j, 1 + i).Value = myArray(i)
  10.             Sheets("sheet2").Cells(j, 1).NumberFormatLocal = "0000000000000"
  11.             Next i
  12.     Next j
  13.    
½Æ»s¥N½X
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§â¥ØªºÀx¦s®æ³]¬°¤å¦r®æ¦¡´N¥iÁקK«e­±0¤£¨£¤F¡C

TOP

¦^´_ 8# oobird

    ¤j¤j,½Ð°Ý¤@¤U¨º¦³¨S¦³¿ìªk¥Îvba©O?

TOP

Sheets("sheet2").[b:b].NumberFormatLocal = "@"

©ñ¦b«e­±¡A¤£­n¦b´`Àô¤¤

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD