【求助】急！母件与子件对应关系（批量一对多查找）

StriveDandy

yjh_27 发表于 2020-3-31 11:44

Worksheets("Sheet1").Range("a2").Resize(r1 - 1, UBound(crr, 2)).ClearContents

老师，我发现r1 - 1在sheet1中没有数据的时候会报错，我改成Resize(r1, UBound(crr, 2))好像没有影响了

yjh_27

StriveDandy 发表于 2020-3-31 12:28
Worksheets("Sheet1").Range("a2").Resize(r1 - 1, UBound(crr, 2)).ClearContents

老师，我发现r1 -  ...

只要工作表不用满，没有影响。
严格
If r1 > 1 Then Worksheets("Sheet1").Range("a2").Resize(r1 - 1, UBound(crr, 2)).ClearContents

StriveDandy

yjh_27 发表于 2020-3-31 14:25
只要工作表不用满，没有影响。
严格
If r1 > 1 Then Worksheets("Sheet1").Range("a2").Resize(r1 - 1, ...

老师，能够在这多加2个输出列吗，我尝试了一下没有弄出来。。万分感谢！！！

yjh_27

StriveDandy 发表于 2020-4-1 14:24
老师，能够在这多加2个输出列吗，我尝试了一下没有弄出来。。万分感谢！！！

clm = Array(, 1, 2, 1, 2,1, 2,14, 15, 18, 19, 20, 21)
......
    If crr(ci, 8) = 2 Then i0 = ci Else crr(ci, 1) = "": crr(ci, 2) = "": crr(ci, 3) = crr(i0, 3): crr(ci, 4) = crr(i0, 4)

StriveDandy

yjh_27 发表于 2020-4-1 15:12
clm = Array(, 1, 2, 1, 2,1, 2,14, 15, 18, 19, 20, 21)
......
    If crr(ci, 8) = 2 Then i0 = ci  ...

老师，好像会报错哦
然后我看这个也不是上一级的母件料号，，直接就是成品料号了。。。修改后的附件，我也顺便放上来了

yjh_27

StriveDandy 发表于 2020-4-2 11:54
老师，好像会报错哦
然后我看这个也不是上一级的母件料号，，直接就是成品料号了。。。修改后的附件，我 ...

12L附件已更新

StriveDandy

yjh_27 发表于 2020-4-2 13:41
12L附件已更新

老师，想问问，我有一个类似的文档。可不可以修改成如下功能呢，和之前那个应该差不多
具体如下：
1.根据第一行，输出对应数据，例如：第一段输出16开头的，我以“—”作为判断，例如—16就输出开头为16的所有母件。2.第二段是“—15”，就输出16母件对应的15开头的子件，以此类推。
3.之后到“—12”，就输出12开头的子件料号及母件底数。

里面的宏是之前那个Excel的宏，我复制过来了，应该在基础上改改就行了

截图和附件放里面了，老师帮忙看看呗，万分感谢！