excel表格按文字如何排序
1.excel表中在一个单位格中中奈何能把文字有序的分列 按什么排序?按声母顺序排序?给你个例子你看看吧 在事情表页面按ALT+F11 进入VBA编辑窗口,在左边的列表框先插入模块,粘贴以
在事情表页面按ALT+F11 进入VBA编辑窗口,抖客教程网,在左边的列表框先插入模块,粘贴以下代码到光标位置,封锁VBA代码窗口.该代码是一个自界说函数,目标就是对指定单位格的内容按字符的ascii码的巨细举办排序(对汉字来说就是按声母的顺序举办排序).
用法跟excel内置函数基内情同 好比要排序A1单位格的内容就在A2 单位格输入=zfpx(A1)
代码如下:
Function zfpx(str As String)
ReDim arr(Len(str) - 1)
For i = 1 To Len(str)
arr(i - 1) = Mid(str, i, 1)
Next
For i = LBound(arr) To UBound(arr) - 1
For ii = i + 1 To UBound(arr)
If Asc(arr(i)) > Asc(arr(ii)) Then
temp = arr(ii)
arr(ii) = arr(i)
arr(i) = temp
End If
Next ii
Next i
zfpx = Replace(Join(arr), " ", "")