单元格内排序

maxmin168

miaojohn45 发表于 2024-4-6 14:10
字符串排序按第一个字符排序，第一个字符相同的再排序第二个字符，以此类推，不是按数值排序的。

不才愚鲁，没有学精。目前10以内的个位数可用大致可以解决问题了。但以后不排除，甚至极有可能会有10以上，所以在可能的前提下能不能提高一点可用序号的上限数，当然函数原理不支持了那也是没有办法，其实是我没装365才是最大的问题，看看新出还没换装的office2024会不会多支持一些函数。

baofa2

Sub test0()
  Dim ar, br
  Dim i As Long, j As Long
  ar = Range("A1").CurrentRegion.Columns(1).Value
  For i = 2 To UBound(ar)
    br = Split(ar(i, 1), "/")
    BubbleSort br, LBound(br), UBound(br)
    ar(i, 1) = Join(br, "/")
  Next
  Range("B1").Resize(UBound(ar)) = ar
End Sub

Function BubbleSort(ar, l As Long, r As Long)
  Dim i As Long, j As Long, swap As String
  For i = l To r - 1
    For j = l To r + l - 1 - i
      If Val(ar(j)) < Val(ar(j + 1)) Then
        swap = ar(j)
        ar(j) = ar(j + 1)
        ar(j + 1) = swap
      End If
    Next
  Next
End Function

swl4561255

1. Sub test()
   
2. arr = Range("A1").CurrentRegion
   
3. For i = 2 To UBound(arr)
   
4. m = UBound(Split(Range("A" & i), "/")) + 1
   
5. Range("B" & i).Resize(1, m) = Split(Range("A" & i), "/")
   
6. With Range(Cells(i, 2), Cells(i, m))
   
7.    .Sort Key1:=Range("B" & i), order1:=xlDescending, Orientation:=xlSortRows
   
8. End With
   
9. Next
   
10. End Sub

复制代码

maxmin168

swl4561255 发表于 2024-4-6 14:53

谢谢，试了一下，其实结果仍然在一个单元格里就好，要的是排个序，不用拆分它们各自一个单元格，当然如果有场合需要这样，代码实现了这个要求。/被删除了，再放一点数据，发现有些没有排序正确。12楼的代码解决问题了，这里作为问题不同解决方式的交流互动，集思广益的角度，您有空时请看看附件。

表格.rar (14.93 KB, 下载次数: 4)

2024-4-6 17:02 上传

点击文件名下载附件

miaojohn45

maxmin168 发表于 2024-4-6 14:26
不才愚鲁，没有学精。目前10以内的个位数可用大致可以解决问题了。但以后不排除，甚至极有可能会有10以上 ...

你能装2024为啥不直接装365呢？365又不咬人，搞不懂。
你试试：

渡渡orz

=LET(_a,TEXTSPLIT(A3,"/"),_b,SORTBY(_a,--TEXTBEFORE(_a,"×"),-1),TEXTJOIN("/",1,_b))

maxmin168

miaojohn45 发表于 2024-4-6 17:10
你能装2024为啥不直接装365呢？365又不咬人，搞不懂。
你试试：

还没装2024，目前是2021，365不是订阅制吗，感觉挺麻烦的。2021激活一次用很久，其实大多数时候也够用。

miaojohn45

maxmin168 发表于 2024-4-6 17:32
还没装2024，目前是2021，365不是订阅制吗，感觉挺麻烦的。2021激活一次用很久，其实大多数时候也够用。

365你不订阅就行了，又不是没有激活方法。难道你2024是打算买的，我看不会吧。

cnmlgb9998

1. =TEXTJOIN("/",TRUE,BYROW(SORT(TEXTSPLIT(A2,"×","/",TRUE),1,-1),LAMBDA(x,TEXTJOIN("×",TRUE,x))))

复制代码

maxmin168

miaojohn45 发表于 2024-4-6 17:39
365你不订阅就行了，又不是没有激活方法。难道你2024是打算买的，我看不会吧。

2021是用下载保存的Office2021安装文件安装后用KMS_VL_ALL_AIO-50这个工具激活的，365的话是不是要装那个OfficeTool去安装部署？没有试过这个工具。