筛选出多表数量总和不为0的产品 还需要去重

app240913

大家好，有很多文件表，每个文件表有产品和数量，存在0数量的记录，存在一个表产品重复和不同表产品重复
需要筛选出多表数量总和不为0的产品 还需要去重


昨天发过一次没有解决

quqiyuan

这个公式是不是有点麻烦？vba啦，或者PQ也方便。以下仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("汇总")
    Set d = CreateObject("scripting.dictionary")
    ReDim brr(1 To 10000, 1 To 2)
    For Each sh In wb.Sheets
        If sh.Name <> sht.Name Then
            arr = sh.UsedRange
            For i = 2 To UBound(arr)
                If arr(i, 2) <> Empty Then
                    If Not d.exists(arr(i, 1)) Then
                        n = n + 1
                        d(arr(i, 1)) = n
                    End If
                    m = d(arr(i, 1))
                    brr(m, 1) = arr(i, 1)
                    brr(m, 2) = brr(m, 2) + arr(i, 2)
                End If
            Next
        End If
    Next
    With sht
        .UsedRange.Clear
        .[a1:b1] = Array("水果", "数量")
        [a2].Resize(n, 2) = brr
        .UsedRange.HorizontalAlignment = xlCenter
        .UsedRange.Borders.LineStyle = 1
        .UsedRange.Columns.AutoFit
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

你是那块小饼干

1. =TEXTSPLIT(TEXTJOIN(".",TRUE,UNIQUE(BYROW(VSTACK(FILTER('1月'!A2:B11,'1月'!B2:B11<>0,""),FILTER('2月'!A2:B10,'2月'!B2:B10<>0,"")),LAMBDA(_X,TEXTJOIN(",",TRUE,_X))))),",",".",TRUE)

复制代码

app240913

=UNIQUE(CHOOSECOLS(FILTER(VSTACK('1月:2月'!A2:B50),VSTACK('1月:2月'!B2:B50)<>0),1))  这个我自己做的我试了下可以

app240913

1. =UNIQUE(CHOOSECOLS(FILTER(VSTACK('1月:2月'!A2:B50),VSTACK('1月:2月'!B2:B50)<>0),1))

复制代码

这个我自己做的我试了下可以

app240913

可能大家被我的描述误导了，其实只要一开始筛选出B列不为0的结果，再取产品去重结果是一样的