UC知道高手帮忙，这列EXCEL中英文不知道如何分列？
来源：百度知道 编辑：UC知道 时间：2024/06/22 06:22:22
a-grain 高铝颗粒
A.S.T.M. specification A.S.T.M. 的规范
abbe number or abbe value 阿贝值
abbe refractometer 阿贝折射计
abbertite 黑沥青
ablation 耗损
ablative shielding 剥落，散热性屏蔽(太空)
abnormal setting 异常凝结
abnormal steel 异常钢
abradant 摩擦剂
如上面这些数据，试过很多分列方法都出错，或者会把汉字的第一个字和英文分在同一列，很是头疼啊，请高手帮忙，而且这样的数据我有一万行啊，不能手动啊！谢谢了
A.S.T.M. specification A.S.T.M. 的规范
abbe number or abbe value 阿贝值
abbe refractometer 阿贝折射计
abbertite 黑沥青
ablation 耗损
ablative shielding 剥落，散热性屏蔽(太空)
abnormal setting 异常凝结
abnormal steel 异常钢
abradant 摩擦剂
如上面这些数据，试过很多分列方法都出错，或者会把汉字的第一个字和英文分在同一列，很是头疼啊，请高手帮忙，而且这样的数据我有一万行啊，不能手动啊！谢谢了
我试过了，一楼的回答好像没有什么作用。
我的方法是：
1.在“视图”——“工具栏”——Visual Basic——在控件工具箱上向Excel中添加一个按钮，不要修改按钮的名称，使其默认为CommandButton1
2.在“工具”——“宏”——Visual Basic编辑器——在编辑界面下拷入以下代码
Private Sub CommandButton1_Click()
Dim xTo, i, xL As Integer
xTo = InputBox("Which row you want to separate:")
For i = 1 To xTo
xL = Len(Range("A" & i).Value)
For J = 1 To xL
If Int(Asc(Mid(Range("A" & i).Value, J, 1))) < 0 Then
Range("B" & i) = Left(Range("A" & i).Value, J - 1)
Range("C" & i) = Right(Range("A" & i).Value, xL - J + 1)
Exit For
End If
Next
Next
End Sub
3.按下按钮，弹出一个小对话框，输入你希望分离到的行数，如10000
4.程序运行，就OK了。
5.用完后删除按钮就可以了。
我已经试验过了，成功的，哦，记得要启用宏哦，否则就不要怪我了。
还有，记得给分哦，说实在的，搞定你10000多行才给5分，太少了哦。
简单的
B1=LEFT(A1,2*LEN(A1)-LENB(A1))
C1=RIGHT(A1,LENB(A1)-LEN(A1))
向下复制公式。
但这两个公式要求后面的汉字部