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

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

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

regexp.rar (10.06 KB)
±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

¦Û¤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

TOP

¦^´_ 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
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD