excel表格隔着一个有文字的单元格如何排？

  按什么排序?按声母顺序排序?给你个例子你看看吧

在工作表页面按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), " ", "")

End Function 如果觉的我答案有用，请点赞。