如何根据原始列逗号间隔无序数字生成目标表从小到大紧凑排列逗号间隔即重新整理排...

chxw68

基础知识。

chxw68

1. Sub test3()
   
2.     Dim r%, i%, m%
   
3.     Dim arr, brr(), crr()
   
4.     With Worksheets("原始1")
   
5.         r = .Cells(.Rows.Count, 5).End(xlUp).Row
   
6.         arr = .Range("e1:e" & r)
   
7.         ReDim brr(1 To UBound(arr), 1 To 1)
   
8.         For i = 2 To UBound(arr)
   
9.             m = 0
   
10.             Erase crr
    
11.             arr(i, 1) = Replace(Replace(arr(i, 1), " ", ""), "，", ",")
    
12.             xm1 = Split(arr(i, 1), ",")
    
13.             For j = 0 To UBound(xm1)
    
14.                 If InStr(xm1(j), "-") <> 0 Then
    
15.                     xm2 = Split(xm1(j), "-")
    
16.                     For k = Val(xm2(0)) To Val(xm2(1))
    
17.                         m = m + 1
    
18.                         ReDim Preserve crr(1 To m)
    
19.                         crr(m) = k
    
20.                     Next
    
21.                 Else
    
22.                     m = m + 1
    
23.                     ReDim Preserve crr(1 To m)
    
24.                     crr(m) = Val(xm1(j))
    
25.                 End If
    
26.             Next
    
27.             If m > 0 Then
    
28.                 For x = 1 To UBound(crr) - 1
    
29.                     p = x
    
30.                     For y = x + 1 To UBound(crr)
    
31.                         If crr(p) > crr(y) Then
    
32.                             p = y
    
33.                         End If
    
34.                     Next
    
35.                     If p <> x Then
    
36.                         temp = crr(x)
    
37.                         crr(x) = crr(p)
    
38.                         crr(p) = temp
    
39.                     End If
    
40.                 Next
    
41.                 brr(i, 1) = Join(crr, ",")
    
42.             End If
    
43.         Next
    
44.         .Range("g1").Resize(UBound(brr), 1) = brr
    
45.     End With
    
46. End Sub
    
47. 
    

复制代码

chxw68

修改好了，这个不用arrlist插件。

yzyyyyyyy

chxw68 发表于 2023-2-10 15:13
修改好了，这个不用arrlist插件。

感谢大师热心帮助。想把大师的代码改成公式，不知问题在哪，大师有时间麻烦看一下，谢谢 如何根据原始列逗号间隔无序数字生成目标表从小到大紧凑排列逗号间隔即重新整理排序排列倒回.rar (17.11 KB, 下载次数: 2)

2023-2-10 16:37 上传

点击文件名下载附件

chxw68

yzyyyyyyy 发表于 2023-2-10 16:37
感谢大师热心帮助。想把大师的代码改成公式，不知问题在哪，大师有时间麻烦看一下，谢谢

建议你自己修改吧，这也是一个学习的过程。

chxw68

修改好了。

准提部林

自訂函數//
A20230210-1(Number).rar (9.58 KB, 下载次数: 8)

2023-2-10 19:25 上传

点击文件名下载附件