How to get the space base on the number afters ?

[ks1102]

Dear Experts

I have too many wording which on columns "w" to wanna get SPACE base on a numbers TO SPLIT.

For example
"KERRYWAREHOUSE *2KERRYWAREHOUSE*3KERRYWAREHOUSE*4"

Result
"KERRYWAREHOUSE *2 KERRYWAREHOUSE*3 KERRYWAREHOUSE*4"

can it be do by macros ?
please help as i highly appreciate

[ks1102]

Dear Experts

I have too many wording which on columns "w" to wanna get SPACE base on a numbers TO SPLIT.

For example
"KERRYWAREHOUSE *2KERRYWAREHOUSE*3KERRYWAREHOUSE*4"

Result
"KERRYWAREHOUSE *2 KERRYWAREHOUSE*3 KERRYWAREHOUSE*4"

can it be do by macros ?
please help as i highly appreciate

i have trying code as "

        avarSplit = Split(Cells(aa, 23).Value, "1", "2", "3", "4", "5", "6")
    For intIndex = LBound(avarSplit) To UBound(avarSplit)

but it's error

[vlady]

i found this one maybe it could help

Public Function AddSpaces(r As String) As String
Dim s As String
With CreateObject("vbscript.regexp")
    .Pattern = "([a-z]|\d)([A-Z])"
    .Global = True
    s = .Replace(r, "$1 $2")
End With
AddSpaces = s
End Function

=AddSpaces(A1)

NOT MY CODE. It say it's from MOREFUNC.

[ks1102]

i found this one maybe it could help

Public Function AddSpaces(r As String) As String
Dim s As String
With CreateObject("vbscript.regexp")
    .Pattern = "([a-z]|\d)([A-Z])"
    .Global = True
    s = .Replace(r, "$1 $2")
End With
AddSpaces = s
End Function

=AddSpaces(A1)

NOT MY CODE. It say it's from MOREFUNC.

Thanks the advise but how to use this code ?

[ks1102]

Thanks the advise but how to use this code ?

yeah i find how to used and it work perfectly .
thxx

[vlady]

Nice!

Regards,
Vlady