按指定列单元格字符数量的多少来排序

准提部林

字符數//遞減排序...by.准提部林
Sub Test_A1()
Dim Arr, T$, i&
With Intersect(ActiveSheet.UsedRange, [c:d])
     Arr = .Value
     For i = 2 To UBound(Arr)
         Arr(i, 1) = Format(Len(Arr(i, 1)), "00000") & "\\\" & Arr(i, 1)
     Next i
     .Value = Arr
     .Sort Key1:=.Item(1), Order1:=xlDescending, Header:=xlYes
     .Replace "*\\\", "", Lookat:=xlPart
End With
End Sub

cnmlgb9998

PQ 一句代码的事。。。。。。。。

woniu3721

longwin 发表于 2024-5-29 00:55

你这个不错，是全自动的，而且可选排序方式。楼上的是手动的

woniu3721

LIUZHU 发表于 2024-5-29 09:00
C列和D列的排序结果是否应该安排一个独立的表格展现，原表中还是保留原始的数据？

没必要再独立安排了，这两列数据后面是需要被调用的。

woniu3721

tanglf188 发表于 2024-5-29 09:18
参与一下，结果在G、H列

你这个代码太复杂了，我不要GH

woniu3721

准提部林 发表于 2024-5-29 11:39
字符數//遞減排序...by.准提部林
Sub Test_A1()
Dim Arr, T$, i&

你这个有些地方是看不懂，比如几个0还有*号斜线等那些，不过管用能达到效果！

woniu3721

grf1973 发表于 2024-5-29 09:36
这种用JS做特别方便，可以直接对数组排序。
附件用WPS打开测试。

你这个用JS的思路不错，也值得借鉴，不过对JS不熟悉，需要探索了解

准提部林

woniu3721 发表于 2024-5-29 23:38
你这个有些地方是看不懂，比如几个0还有*号斜线等那些，不过管用能达到效果！

以字符數排序..by.准提部林
1) 將字符數以"00000"格式加入文本開頭, 以此規則排序
2) 這種排序符合excel自帶排序規則...除了字符數, 也將相同字數文字一起排序(d列也會被排序)
3) 空格都會被排在最後
Xl0000013.rar (15.84 KB, 下载次数: 5)

2024-5-30 13:35 上传

点击文件名下载附件