选中这一列，点“数据”--分列--选分隔符号--选其他---输入“（”，完成分列后，再做一次按“）”分列，两次做完后，英文一列，中文一列，英文一列。再删除不需要的列。
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next
For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 55289 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m
选择此单元格，按alt+f8创建一个宏，把里面的东西全删了，复制代码进去，关闭后，回到excel再按alt+f8 点aa执行，试试吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024