英文和汉字一个单元格拆分成两列VBA

nnsea

Sub test()
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "(?!^)(?=[a-z])"
    For Each Rng In [a1:a11]
        Cells(Rng.Row, 2) = .Replace(Rng, "-")
    Next
End With
End Sub