excel怎么在一堆英文中加空格-Excel多种方法在中文和英文交界处插入一个空格

Excel多种方法在中文和英文交界处插入一个空格

需求：批量替换，要把下面的这个字符串中中文和英文交界处插入一个空格，中英文不会互相隔开，每一个字符串中都是前面中文，后面英文。

,"交通规划Transport Planning"

用普通公式就可以解决：

作者：swl4561255

=REPLACE(A1,LENB(A1)-LEN(A1)+1,," ")

VBA正则表达式代码1：

作者：swl4561255

Sub aa()

    With CreateObject("VBscript.regexp")

        .Pattern = "[u4e00-u9fa5]+"

        Range("A1") = .Execute(Range("A1"))(0) & .Replace(Range("A1"), " ")

    End With

End Sub

多个单元格可以外套循环解决。

VBA正则表达式代码2：

作者：香川群子

不就是找到英文字母就加个空格么，正则用自定义函数方法更简单。

Function TQ(txt)

    Set Reg = CreateObject("VBScript.RegExp")

    With Reg

        .Pattern = "([a-zA-Z])"

        TQ = .Replace(txt, " $1")

    End With

End Function

VBA 代码3： 

作者：香川群子 

其实不用正则也很简单，用like方法即可：

Function TR(txt)

    For i = 1 To Len(txt)

     If Mid(txt, i, 1) Like "[A-Za-z]" Then TR = Left(txt, i - 1) & " " & Mid(txt, i): Exit For

    Next

End Function

VBA 正则代码4： 

作者：龙城飞将III

Function InsertSpace(Rng As Range)

    Dim Reg

    Dim MyStr As String

    Set Reg = CreateObject("vbscript.regexp")

    With Reg

        .Pattern = "(W+)(w+s+)"

        .Global = True

        MyStr = Reg.Replace(Rng, "$1 $2")

    End With

    InsertSpace = MyStr

End Function

VBA 正则代码5： 

作者：zhouzhongchi 

练习：

With re

    .Pattern = "(w)"

    Debug.Print .Replace(s, " $1")

    .Pattern = "(.(?=w))"

    Debug.Print .Replace(s, "$1 ")

End With