如何用VBA分离如下中英文

dys

细微的调整就不做了，，，，，，大概就这样。具体格式要具体分析了。

Sub test()
    Dim i As Long, Position As Integer, myString As String, English As String, Chinese As String
    Dim Regex As Object, matches As Object
    Set Regex = CreateObject("VBScript.RegExp")
    Regex.Pattern = "[A-Za-z]"
    For i = 1 To [A65536].End(xlUp).Row
        myString = Cells(i, 1).Value
        Position = InStrRev(myString, "@")
        If Position > 0 Then
            English = Left(myString, Position - 1)
            Chinese = Right(myString, Len(myString) - Position)
            Debug.Print Chinese
        Else
            Set matches = Regex.Execute(myString)
            If matches.Count > 0 Then
                Position = matches.Item(x).FirstIndex
                English = Right(myString, Len(myString) - Position)
                Chinese = Left(myString, Position)
            Else
                MsgBox "Unknown Format !!!"
            End If
        End If
    Next
End Sub

vfd

原帖由 dys 于 2009-7-23 14:30 发表
细微的调整就不做了，，，，，，大概就这样。具体格式要具体分析了。

Sub test()
    Dim i As Long, Position As Integer, myString As String, English As String, Chinese As String
    Dim Regex As Objec ...

兄弟这个针对那个EXCEL表格，我试过没出结果呢？

dys

我没加输出，两上表格都可以用。

chinese与english就是变量，把他换着单元格就行了。debug.print也可以