ºI¨úAÄ椺³Ì«á¤@ӼƦr¥H«áªº¦r¦ê(µ²ªG¦bBÄæ)
- ©«¤l
- 334
- ¥DÃD
- 139
- ºëµØ
- 0
- ¿n¤À
- 621
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWSXP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-8-5
- ³Ì«áµn¿ý
- 2022-11-3
|
ºI¨úAÄ椺³Ì«á¤@ӼƦr¥H«áªº¦r¦ê(µ²ªG¦bBÄæ)
ºI¨úAÄ椺³Ì«á¤@ӼƦr¥H«áªº¦r¦ê(µ²ªG¦bBÄæ) |
|
joyce
|
|
|
|
|
- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 17
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-11-19
|
try this:- Sub zz()
- Dim ar, d As Object, rp As Object
- ar = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).Value
- With CreateObject("vbscript.regexp")
- .Pattern = "\b[^\d\w]+"
- For i = 1 To UBound(ar)
- If .test(ar(i, 1)) Then Debug.Print .Execute(ar(i, 1))(0)
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 334
- ¥DÃD
- 139
- ºëµØ
- 0
- ¿n¤À
- 621
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWSXP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-8-5
- ³Ì«áµn¿ý
- 2022-11-3
|
½Ð°Ý¬O§_¥i¥H¥Î¨ç¼Æ¸Ñµª,·P®¦ |
|
joyce
|
|
|
|
|
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
°}¦C¤½¦¡¡eShift + Ctrl ¡÷ Enter¡f¤TÁä
=MID(A2,MATCH(1,-MID(0&A2,ROW($1:$59),1)),99) |
|
|
|
|
|
|
- ©«¤l
- 334
- ¥DÃD
- 139
- ºëµØ
- 0
- ¿n¤À
- 621
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWSXP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-8-5
- ³Ì«áµn¿ý
- 2022-11-3
|
¦^´_ 4# ã´£³¡ªL
½Ð°ÝROW($1:$59)¬O«ü²Ä¤@¦C¦Ü²Ä59¦C¶Ü?Y¬O,¨º¬°¦ón1¦Ü59¦C |
|
joyce
|
|
|
|
|
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
¦^´_ 5# leiru
¤å¦r¦êªº²Ä1~²Ä59Ó¦r¤¸, Y¦r¤¸¼Æ¥i¯à¶W¹L59Ó¦r, ¦Û¦æÂX¼W~~ |
|
|
|
|
|
|