根据关键数值，生成对应数值的行，生成新的表格数据

包导

quqiyuan 发表于 2024-12-17 18:01
怎么附件跟你说的不一样。。。

附件已经重新改了，不好意思，上传错了

包导

Excel_muke 发表于 2024-12-17 19:19
PowerQuery实现的：

谢谢大佬，只是户号那里还有问题。不过还是感谢

包导

飞天篮球猪 发表于 2024-12-17 20:03
插件解法...仅供参考

感谢，感谢

quqiyuan

包导 发表于 2024-12-17 20:16
附件已经重新改了，不好意思，上传错了

没关系了，我按照你图片已经做出来了，你下载测试一下即可。。。

包导

waternew 发表于 2024-12-17 17:33
最好上传一下附件

附件已经上传，麻烦看下

无关岁月

1. =REDUCE({"地址","覆盖设备","户号"},C2:C5,LAMBDA(_a,_b,VSTACK(_a,HSTACK(REPTARRAY(OFFSET(_b,,-1,,-2),_b),BYROW(IF({1,0},REGEXP(OFFSET(_b,,-2),"\d+"),TEXT(SEQUENCE(_b),"00")),CONCAT)))))

复制代码

包导

quqiyuan 发表于 2024-12-17 20:24
没关系了，我按照你图片已经做出来了，你下载测试一下即可。。。

好的。谢谢

cjc209

jsa 自定义函数完成

cnmlgb9998

飞天篮球猪

1. Sub Main()
   
2. Dim dArr, rArr, nRow&, H&, N&, K&, B As Boolean
   
3. dArr = Sheet1.[A1].CurrentRegion
   
4. nRow = WorksheetFunction.Sum(WorksheetFunction.Index(dArr, 0, 3))
   
5. ReDim rArr(1 To nRow, 1 To 3)
   
6. H = 0: K = 0
   
7. For i = 2 To UBound(dArr)
   
8.     B = dArr(i, 1) <> dArr(i - 1, 1)
   
9.     If B Then H = H + 100
   
10.     For j = 1 To dArr(i, 3)
    
11.         K = K + 1
    
12.         If B Then N = H: N = N + j Else N = N + 1
    
13.         rArr(K, 1) = dArr(i, 1)
    
14.         rArr(K, 2) = dArr(i, 2)
    
15.         rArr(K, 3) = N & "号"
    
16.     Next j
    
17. Next i
    
18. With Sheet1
    
19.     .Range("E1").CurrentRegion.Clear
    
20.     .Range("E1").Resize(1, 3) = Array("地址", "覆盖设备", "户号")
    
21.     .Range("E2").Resize(nRow, 3) = rArr
    
22. End With
    
23. End Sub

复制代码