关于问题是:汉字前面也有可能有字母,需要以单元格中的最后一个汉字为界将单元格分成两列
如单元格内容为:
对分 dsf 的身份 dfdf
需要效果是:将对分 dsf 的身份放在一列,而dfdf放在另一列的问题
此问题可以用公式和宏处理,公式就有点复杂了,俺也懒得去动脑筋,还是宏简单一点,你可以把这个文件当作一次临时工具使用,使用方法:
把要分列的数据复制粘贴在sheet1的A列中,注意要从A1开始,且A列数据中间不能有空的单元格,否则可能出错。
再点分列按钮,很快就可完成,结果放在A、B两列,再把结果复制粘贴回原文件即可。
如想把宏移植到原文件,可以参考以下代码:
Sub ls()
Dim X As Range
Set X = [a1] ‘令X为单元格A1
While X。
Value “”
For i = Len(X。Value) To 1 Step -1 ‘设置循环,从该单元格的右至左每个字符进行循环,用以检测ASCII码
If Asc(Mid(X。Value, i, 1))
Offset(0, 1) = Mid(X。Value, i + 1, Len(X。Value) – i)
X = Left(X。Value, i)
Exit For
End If
Next
Set X = X。Offset(1) ‘令X为下一单元格
Wend
End Sub
。