如何简化连续编号

ynzsvt

再给你一个已知可以乱序的，有序输出的。

1. Sub Test3()
   
2. Dim St As String, i&
   
3. For i = 2 To 10
   
4.   St = Cells(i, 1).Value
   
5.   Cells(i, 2) = "'" & JoinSt(St)
   
6. Next
   
7. End Sub
   
8. 
   
9. Function JoinSt(St$)
   
10. Dim Dic As Object, i&, Ar, Nr(), N&, Dk, S$, Mn, Mx, T
    
11. Set Dic = CreateObject("Scripting.Dictionary")
    
12. S = Replace(St, "，", ",")
    
13. Ar = Split(S, ",")
    
14. N = UBound(Ar)
    
15. ReDim Nr(N)
    
16. For i = 0 To N
    
17.   Nr(i) = ExtNum(Ar(i))
    
18.   Dic(Nr(i)) = i
    
19. Next 'i
    
20. 
    
21. Dk = Dic.Keys
    
22. Mn = Application.WorksheetFunction.Min(Dk)
    
23. S = Ar(Dic(Mn)): Dic.Remove Mn
    
24. Do
    
25.   T = "": Mx = Mn + 1: While Dic.Exists(Mx): T = Ar(Dic(Mx)): Dic.Remove Mx: Mx = Mx + 1: Wend
    
26.   If T <> "" Then S = S & ":" & T
    
27.   If Dic.Count > 0 Then
    
28.    Dk = Dic.Keys
    
29.    Mn = Application.WorksheetFunction.Min(Dk)
    
30.    S = S & "," & Ar(Dic(Mn)): Dic.Remove Mn
    
31.   End If
    
32. Loop Until Dic.Count = 0
    
33. JoinSt = S
    
34. Set Dic = Nothing
    
35. End Function

复制代码

准提部林

aman1516 发表于 2024-11-9 19:25
文件损坏，还是感谢关注

其實只在原代碼修改//

sr = Split(str & ",\", ",")

SumStr = Replace(s & ")", ",\", "")

准提部林

aman1516 发表于 2024-11-9 19:25
文件损坏，还是感谢关注

完整代碼//
Public Function SumStr(str As String)
Dim sr, s, t, a As String, b As String, m, n, f As Boolean
f = True
sr = Split(str & ",\", ",")
a = sr(0): s = "=SUM(" & a: n = 1
For t = 1 To UBound(sr)
    b = sr(t)
    m = ExtNum(b)
    If m <> ExtNum(a) + n Then
       If sr(t - 1) <> a Then
          s = s & ":" & sr(t - 1) & "," & b
       Else
          s = s & "," & b
       End If
       a = b
       n = 0
       f = False
    Else
      
    End If
    n = n + 1
    If t = UBound(sr) And f = True Then s = "=SUM(" & sr(0) & ":" & b
Next
SumStr = Replace(s & ")", ",\", "")
End Function

一招秒杀

aman1516 发表于 2024-11-9 21:30
长字符串这种情况有哦，我原来就写的很简单，后来各种数据测试后才发现东一个BUG，西一个BUG，后来 ...

专业的工具做专业的事，SQL Server 对单条语句的默认长度限制是 256MB , 可以修改到更大，对于已经存入数据库的内容长度限制 主要取决于服务器的存储大小（内存和硬盘）。

准提部林

aman1516 发表于 2024-11-9 19:30
非常巧妙的方法！但仅适合符合单元格式字母与数字组合的字符串，非单元格字母前缀，或字母后缀时，就会有 ...

是否還要考慮如下狀況:
1. 字串並未排序?
2. "序號"有固定長度?  如:a001,a002......
3. 字串前綴或後綴夾雜數字?  如:m3A-01,m3A-02...

翁知江安

这是测试结果。。。

翁知江安

以上仅供参考，欢迎批评指正。请测试

翁知江安

特别提示：原稿中的部分逗号是中文格式的，需调整为英文格式的。

一招秒杀

SQL Server 默认忽略了 全角半角的差别，无论前面还是后面的参数，都可以任意全角半角，感觉好方便啊。

aman1516

准提部林 发表于 2024-11-10 10:12
是否還要考慮如下狀況:
1. 字串並未排序?
2. "序號"有固定長度?  如:a001,a002......

哈哈，哪里不通治哪里，这是貂尾續狗啊，加一元素解决了最末段不对的问题
考虑不周只能到处打补钉或返工，现时对数据可能情况总说明如下：
1、序号（字母和数字）长度不统一不固定，每个元素字母也会不一样
2、不会混杂多处有数字，就：数字+字母 或 字母+数字 格式
3、字母会有不符合单元格地址格式的字符
4、并未按数字排序，需排先排序
5、长度有超255字符
6、暂时未想到情况

有些坑也就更多测试时踩到才知道是坑...