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

ºI¨úAÄ椺³Ì«á¤@­Ó¼Æ¦r¥H«áªº¦r¦ê(µ²ªG¦bBÄæ)

ºI¨úAÄ椺³Ì«á¤@­Ó¼Æ¦r¥H«áªº¦r¦ê(µ²ªG¦bBÄæ)

ºI¨úAÄ椺³Ì«á¤@­Ó¼Æ¦r¥H«áªº¦r¦ê(µ²ªG¦bBÄæ)
joyce

try this:
  1. Sub zz()
  2. Dim ar, d As Object, rp As Object
  3. ar = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value
  4. With CreateObject("vbscript.regexp")
  5.     .Pattern = "\b[^\d\w]+"
  6.     For i = 1 To UBound(ar)
  7.         If .test(ar(i, 1)) Then Debug.Print .Execute(ar(i, 1))(0)
  8.     Next
  9. End With
  10. End Sub
½Æ»s¥N½X

TOP

½Ð°Ý¬O§_¥i¥H¥Î¨ç¼Æ¸Ñµª,·P®¦
joyce

TOP

°}¦C¤½¦¡¡eShift + Ctrl ¡÷ Enter¡f¤TÁä
=MID(A2,MATCH(1,-MID(0&A2,ROW($1:$59),1)),99)

TOP

¦^´_ 4# ­ã´£³¡ªL


    ½Ð°ÝROW($1:$59)¬O«ü²Ä¤@¦C¦Ü²Ä59¦C¶Ü?­Y¬O,¨º¬°¦ó­n1¦Ü59¦C
joyce

TOP

¦^´_ 5# leiru


    B2=MID(A2,IFERROR(LOOKUP(2,1/ISNUMBER(--MID(A2,ROW($1:$255),1)),ROW($2:$256)),1),255)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# leiru


¤å¦r¦êªº²Ä1~²Ä59­Ó¦r¤¸, ­Y¦r¤¸¼Æ¥i¯à¶W¹L59­Ó¦r, ¦Û¦æÂX¼W~~

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD