如何利用一级编码将二级编码对应的商品罗列在另一个工作表中

quqiyuan

代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    ReDim brr(1 To 10000, 1 To 100)
    For i = 2 To UBound(arr)
        s = arr(i, 1)
        If s <> Empty Then
            If Not d.exists(s) Then
                n = n + 1
                d(s) = n
                brr(1, n) = "今日" & arr(i, 2)
                brr(10000, n) = 1
            End If
        End If
    Next
    For i = 2 To UBound(arr)
        Key = d.keys
        s = arr(i, 3)
        If d.exists(Left(s, 4)) Then
            m = d(Left(s, 4))
            brr(10000, m) = brr(10000, m) + 1
            brr(brr(10000, m), m) = arr(i, 4)
            x = Application.Max(x, brr(10000, m))
        End If
    Next
    sht.[k1].Resize(x, n) = brr
    Beep
    Set d = Nothing
End Sub

yyyyyyyyyl

谢谢各位！问题已解决！

yyyyyyyyyl

quqiyuan 发表于 2024-11-18 17:53
来个vba吧，一键自动生成，仅供参考。。。。

谢谢！是我不太能看懂的VBA 我研究研究

mjm04

参与下

G2单元格：

=DROP(IFNA(LET(x,MAP(C2:C13,LAMBDA(a,"今日"&FILTER($B$2:$B$4,LEFT(a,4)=$A$2:$A$4))),REDUCE("",UNIQUE(x),LAMBDA(a,b,HSTACK(a,VSTACK(FILTER(D2:D13,b=x)))))),""),,1)

你是那块小饼干

1. =FILTER($D$2:$D$13,ISNUMBER(FIND(XLOOKUP(RIGHT(G1,2),$B$2:$B$4,$A$2:$A$4),$C$2:$C$13)))

复制代码

mykitami

=FILTER($D$2:$D$9999,LEFT($C$2:$C$9999,4)=INDEX($A$2:$A$4,MATCH(RIGHT(G$1,2),$B$2:$B$4,)))
右拉

咔咔乱坠

参与一下，函数

1. =DROP(IFNA(REDUCE(0,A2:A4,LAMBDA(x,y,HSTACK(x,FILTER(D:D,LEFT(C:C,4)=y)))),""),,1)

复制代码