关于父项和子项的求助，感谢高手！

zpy2 · 发表于 2023-7-24 21:35

taizhoexcelhome 发表于 2023-7-24 19:27
老师，您好~您这个代码怎么写呢？

https://club.excelhome.net/blog-226915-2023.html?_dsign=bc8e55d6

在线工具搜 bom展开

zpy2 · 发表于 2023-7-24 21:37

taizhoexcelhome 发表于 2023-7-24 19:27
老师，您好~您这个代码怎么写呢？

http://e.anyoupin.cn/EData/?s=bom%E9%80%92%E5%BD%92

liulang0808 · 发表于 2023-7-25 07:56

Dim r, d
Sub 按钮1_Click()
Dim brr()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
r = 0
For j = 2 To UBound(arr)
      If Not d.exists(j) Then
         d(j) = j
         r = r + 1
         For i = 1 To UBound(arr, 2)
            brr(r, i) = arr(j, i)
         Next i
         dg arr, brr, j
      End If
Next j
[h2].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
Sub dg(arr, brr, x)
For j = x + 1 To UBound(arr)
      If InStr(arr(j, 1), arr(x, 2)) > 0 Then
         r = r + 1
         For i = 1 To UBound(arr, 2)
            brr(r, i) = arr(j, i)
         Next i
         d(j) = j
         dg arr, brr, j
      End If
Next j
End Sub

liulang0808 · 发表于 2023-7-25 07:57

求助.zip (16.11 KB, 下载次数: 7)
猜了一下，不知道理解对不对，供参考。。。。

125675117 · 发表于 2023-7-25 08:24

留个记号关注中

taizhoexcelhome · 发表于 2023-7-25 13:57

liulang0808 发表于 2023-7-25 07:57
猜了一下，不知道理解对不对，供参考。。。。

liulang0808老师：您好！
这个程序运行提示出错：
运行时错误 9 ，下标越界
运行的中：i=1 ： r=2108 ：x=822 ：j=859
1、不知道应该需要怎么修改
2、我的数据不止3列，能不能把结果新建到一个新的工作表。
感谢您的帮助！

liulang0808 · 发表于 2023-7-25 14:29

taizhoexcelhome 发表于 2023-7-25 13:57
liulang0808老师：您好！
这个程序运行提示出错：
运行时错误 9 ，下标越界

一键楼主上传合适的附件。
不然出错大家也不知道什么情况的

taizhoexcelhome · 发表于 2023-7-25 14:59

liulang0808 发表于 2023-7-25 14:29
一键楼主上传合适的附件。
不然出错大家也不知道什么情况的

liulang0808老师，文件在附件里面，请查收，感谢

liulang0808 · 发表于 2023-7-25 15:51

BOM表.zip (85.88 KB, 下载次数: 6)
楼主规范下数据吧

今铭昔 · 发表于 2023-9-3 19:37

。。。。。。。。。。

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

[求助] 关于父项和子项的求助，感谢高手！

评分

评分