求助：连续票号统计

saghj

yes_cn

主要解决了票号非升序（倒序、乱序）排列情况下也能正常工作。

wengjl

统计连续票号的起止号，就是求出 最小号（起）、最大号（止），这样理解对不？

一招秒杀

1句2行，谁还能更简单

680926

Sub t2()
On Error Resume Next
Dim arr
arr = Range("b3").CurrentRegion
Dim brr(1 To 1000, 1 To 4)
For i = 3 To UBound(arr)
    str1 = arr(i, 2)
    Do
         m = Val(Mid(arr(i, 2), 10, 3))
         n = Val(Mid(arr(i + 1, 2), 10, 3))
         If n = m + 1 Then
            i = i + 1
            k = k + 1
         End If
    Loop Until n <> m + 1
    x = x + 1
    brr(x, 1) = str1
    brr(x, 2) = "—"
    brr(x, 3) = arr(i, 2)
    brr(x, 4) = k + 1
    k = 0
Next
[k3].Resize(x, 4) = brr
End Sub

一招秒杀

SQLi 没用循环，也没有那么多不知道干什么用的变量与数组，更没有复杂计算与判断，仅1句2行，简单得不要不要的，再看前面的代码，太长太复杂了，恍若回到了茹毛饮血的原始社会。

LIUZHU

下班前，参与下

LIUZHU

JS代码，供参考

1. function 连续票号统计(){
   
2.         const arr=Range("b4:b"+ Range("b"+ Rows.Count).End(xlUp).Row).Value2.sort((a,b)=>a[0].localeCompare(b[0]));
   
3.         let temp=arr.map(([x],i)=>i==0?0:Number(x.match(/\d+/)[0])-Number(arr[i-1][0].match(/\d+/)[0]));
   
4.         let res=arr.reduce(function(res,[x],i){
   
5.                 let tp=temp[i]==1?res[this.len]:(res[++this.len]=[x,"—",x,0]);
   
6.                 return tp[2]=x, tp[3]++, res;
   
7.         }.bind({len:0}),[["票号启","至","票号止","张数"]])
   
8.         Range("j3").Resize(res.length, 4).Value2=res;
   
9.         Range("j3").CurrentRegion.Borders.LineStyle=1;
   
10. }

复制代码

LIUZHU

附件，WPS打开测试

LIUZHU

一招秒杀 发表于 2024-6-28 16:08
1句2行，谁还能更简单

这个确实非常厉害，代码带简单了