[µo°Ý] ¨D§U: °µ¥¿«h¦b¼Æ¦r»P¤å¦r©Î¤å¦r»P¼Æ¦r¤§¶¡´¡¤JªÅ®æ¡C

ikboy

regexp.rar (10.06 KB)

¥¿«h
¤U¸ü¦¸¼Æ: 9

2015-12-25 23:04

±N¿ù»~ªº - I am 18years old and weight50 Kgs.
§ó¥¿¬° - I am 18 years old and weight 50 Kgs.
¦p¦ó¯à¼g¦¨¤@­Ó Pattern, ¥Ø«e§Ú¬O¼g¦¨¨â­Ó "(\d)([a-zA-Z])" ©M "([a-zA-Z])(\d)", °µ¨â¦¸´`Àô¡C
½Ð¦Ñ®vÀ°¦£¡C

ikboy

¦hÁÂstillfish00,«ä¸ô¥¿½T, §ó¥¿¤F

stillfish00

¦^´_ 2# ikboy
­ì¥»¤À¨â¦¸°µ´N¦n¤F¡A§ï¦¨2#³o¼Ë¤Ï¦Ó·|¿ù¡C

¦pªG­n¤@¦¸¹F¦¨¡A«Øij§ï¦¨³o¼Ë :

1. With rx
   
2.     .Pattern = "(\d(?=[a-zA-Z])|[a-zA-Z](?=\d))"
   
3.     .Global = True
   
4.     For i = 1 To UBound(arr)
   
5.         arr(i, 1) = .Replace(arr(i, 1), "$1 ")
   
6.     Next
   
7. End With

½Æ»s¥N½X

ikboy

¦Û¤v¸Ñ¨M¤F, ¤À¨É¤@¤U:

Sub zz()
Dim arr, rx As Object, c$
Set rx = CreateObject("vbscript.regexp")
arr = ActiveSheet.UsedRange
With rx
    .Pattern = "((d|[A-z])|([A-z]|d))(\d)"
    .Global = True
    For i = 1 To UBound(arr)
        arr(i, 1) = .Replace(arr(i, 1), "$1 $2")
    Next
End With
ActiveSheet.UsedRange = arr
End Sub