根据条件匹配数据

luketools

各位大神好，我希望实现如下功能，特求助各位大神。
当其余工作表中有产品规格时就将工作表名称写入其后面的单元格中，如果多个工作表都有相同规格，就用/分开.并且同一个工作表有相同规格时，将相同客户名称累加，显示客户*采购次数。
如：CN01在客户1和客户5中都有，且在客户1中出现3次，在客户5中出现2次，那么在CN01规格后面的单元格中填入《客户1*3/客户5*2》，CN06在客户2中出现1次，在客户3中出现1次，显示《客户2*1/客户3*1》

liulang0808

Sub 矩形圆角2_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    For Each sh In Sheets
        If sh.Name <> "总表" Then
            arr = sh.UsedRange
            For j = 3 To UBound(arr)
                If Not d.exists(arr(j, 2)) Then
                    Set d(arr(j, 2)) = CreateObject("scripting.dictionary")
                End If
                d(arr(j, 2))(sh.Name) = d(arr(j, 2))(sh.Name) + 1
            Next j
        End If
    Next sh
    arr = Sheets("总表").UsedRange
    For j = 3 To UBound(arr)
        If d(arr(j, 2)).Count > 1 Then
            str1 = ""
            For Each k In d(arr(j, 2)).keys
                str1 = str1 & "/" & k & "*" & d(arr(j, 2))(k)
            Next k
            arr(j, 4) = Mid(str1, 2)
        Else
            arr(j, 4) = d(arr(j, 2)).keys()(0)
        End If
    Next j
    Sheets("总表").UsedRange = arr
    Application.ScreenUpdating = True
End Sub

liulang0808

供参考。。。。。。。

luketools

liulang0808 发表于 2023-2-14 07:25
供参考。。。。。。。

非常感谢，正是我想要的，我想请问一下如果客户想显示在其他列的话，修改哪个参数，谢谢！

liulang0808

luketools 发表于 2023-2-14 07:39
非常感谢，正是我想要的，我想请问一下如果客户想显示在其他列的话，修改哪个参数，谢谢！

arr(j, 4)
后面的4
对应的是列号

luketools

liulang0808 发表于 2023-2-14 08:06
arr(j, 4)
后面的4
对应的是列号

改过之后运行提示 运行错误9，下标越界

liulang0808

luketools 发表于 2023-2-14 08:15
改过之后运行提示 运行错误9，下标越界

对应区域没有取到数组里吧

luketools

liulang0808 发表于 2023-2-14 08:19
对应区域没有取到数组里吧

是的，现在可以了，非常感谢。
现在是只有规格出现在两个工作表中的时候统计出现次数，我想也把只出现一个工作表的规格也统计一下出现次数，怎么调整？
比如：CN02如果在客户1中出现2个，后面显示客户1*2,其他依次类推。

liulang0808

luketools 发表于 2023-2-14 08:30
是的，现在可以了，非常感谢。
现在是只有规格出现在两个工作表中的时候统计出现次数，我想也把只出现一 ...

arr(j, 4) = d(arr(j, 2)).keys()(0) & “*”  & d(arr(j, 2)).items()(0)