单元格内数据是逗号隔开的，宏如何实现给单元格内数据由小到大排序

hlly888 · 发表于 2015-5-23 15:59

请测试，如有问题请指正

hlly888 · 发表于 2015-5-23 16:00

排序.zip (13.34 KB, 下载次数: 37)

好奇心 · 发表于 2015-5-24 07:21

arcticstar 发表于 2015-5-23 13:58
附件为2003版，请帮解决，谢谢！

Private Sub Cmm()
[B:B].ClearContents
Dim a(), b()
Set d = CreateObject("scripting.dictionary")
For Each c In Range([A1], Cells(Rows.Count, 1).End(xlUp))
s = Trim(c.Value)
If Len(s) > 0 And InStr(s, ",") > 0 And s Like "*[0-9]*" Then
x = Split(s, ",")
If UBound(x) = LBound(x) Then
c.Offset(, 1) = s
Else
n = 0
For j = LBound(x) To UBound(x)
For i = 1 To Len(x(j))
If (Asc(Mid(x(j), i, 1)) < 48) Or (Asc(Mid(x(j), i, 1)) > 57) Then n = n + 1 Else Exit For
Next
ReDim Preserve a(0 To j)
ReDim Preserve b(0 To j)
a(j) = Mid(x(j), 1, n)
b(j) = CInt(Mid(x(j), n + 1))
d(b(j)) = a(j)
n = 0
Next
For ii = 0 To UBound(x)
For jj = ii + 1 To UBound(x)
If b(ii) > b(jj) Then
TEMP = b(jj)
b(jj) = b(ii)
b(ii) = TEMP
End If
Next
Next
TEMP = ""
s = ""
kk = kk + 1
For i = LBound(b) To UBound(b)
If d.Exists(b(i)) Then s = s & d(b(i)) & b(i) & ","
Next
d.RemoveAll
Erase a, b
c.Offset(, 1) = s
End If
End If
Next
End Sub

复制代码

liulang0808 · 发表于 2015-5-24 09:34

如果数据如楼主给出的示例，可以考虑天字母，split后放到表格内排序，然后join变通处理下

arcticstar · 发表于 2015-8-13 09:35

本帖最后由 arcticstar 于 2015-8-13 09:55 编辑

hlly888 发表于 2015-5-23 16:00

您这个排序很好用，但有个问题，若数字部分包含0，则排序会丢失包含0的数据，请帮看能否修改下。谢谢！
比如某一个单元格数据为：RE6,RE7,RE8,RE0
则排序后数据为：RE6,RE7,RE8，会丢失掉RE0

hlly888 · 发表于 2015-8-13 14:11

arcticstar 发表于 2015-8-13 09:35
您这个排序很好用，但有个问题，若数字部分包含0，则排序会丢失包含0的数据，请帮看能否修改下。谢谢！
...

排序2.zip (13.43 KB, 下载次数: 26)

arcticstar · 发表于 2015-8-18 16:53

本帖最后由 arcticstar 于 2015-8-18 17:28 编辑

hlly888 发表于 2015-8-13 14:11

谢谢，但有新问题了：1.若单元格中数字部分相同，则排序后数据会多出来，如AC8,AA8,CC7，排序后数据为：CC7,AC8,AA8,AC8,AA8；
2.若数据中包含符号，则数据也会多出来，如S-L,S-N，排序后数据为：S-L,S-N,S-L,S-N；
望大侠帮解决下。

香川群子 · 发表于 2015-8-19 10:19

liulang0808 发表于 2015-5-24 09:34
如果数据如楼主给出的示例，可以考虑天字母，split后放到表格内排序，然后join变通处理下

楼主在钓鱼呢……

问题的条件不断变化……越来越复杂。

所以，任何阶段给出的解决方案，都会被楼主用新的反例来推翻……

为什么不能一次性把问题要求说清楚呢？……呵呵。

香川群子 · 发表于 2015-8-19 10:20

arcticstar 发表于 2015-8-18 16:53
谢谢，但有新问题了：1.若单元格中数字部分相同，则排序后数据会多出来，如AC8,AA8,CC7，排序后数据为：C ...

楼主说：【谢谢，但有新问题了……】

楼主你能不能把要求一次性说明白？！！！

yjh_27 · 发表于 2015-8-19 11:43

arcticstar 发表于 2015-8-18 16:53
谢谢，但有新问题了：1.若单元格中数字部分相同，则排序后数据会多出来，如AC8,AA8,CC7，排序后数据为：C ...

为什么不用19L的自定义函数？

		自动登录	找回密码
密码			免费注册