从单元格A1开始
=RIGHT(A1,LENB(A1)-LEN(A1))
即从右提取了除去单字节的英文字符后的汉字
不过要求你没有空格
所以要是有空格的话最好先用trim去空格
是把a列的汉字都写在b1？
选中b1:b7000(简单方法是选中b1，拉滚动条到7000行，SHIFT＋点b7000)，输入=a1&b2，CTRL＋回车，ok！
Sub xx()
For i = 1 To 7000
If Cells(i, 1) <> "" Then
[b1] = [b1] & Cells(i, 1)
End If
Next
End Sub
对A列排序就好了，不用挑了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024