各位大神，请教如何将查找到不为0的记录，合并显示到一个单元格中，并用逗号隔开

Amy_yangm

各位大神，求如何将查找到不为0的记录，合并显示到一个单元格中，并用逗号隔开，多谢！

心正意诚身修

TEXTJION函数

Amy_yangm

心正意诚身修 发表于 2019-7-22 12:20
TEXTJION函数

谢谢，刚刚查了一下，还是不太会用，能再具体一点吗？我上传一下具体例子，如下表格，用公式求得数量不为0的人员名单

心正意诚身修

=textjoin(",",1,if((A$3:A$13=E3)*(C$3:C$13=0),B$3:B$13))  我的是2007版。没用TEXTJOIn这个函数。你自己数组三键

心正意诚身修

如果你不是2016版。那么。。。就要麻烦得多。

mytto88

vba 写的
Sub kk()
    Dim arr(), brr(), dic As Object
    Set dic = CreateObject("scripting.dictionary")
    irow = Sheet1.Cells(Rows.Count, 1).End(3).Row
    arr = Sheet1.Range("a3:c" & irow)
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 1 To UBound(arr)
        If arr(i, 3) = 0 And arr(i, 3) <> "" Then
            If dic.exists(arr(i, 1)) = False Then
                dic(arr(i, 1)) = arr(i, 2)
            Else
                dic(arr(i, 1)) = dic(arr(i, 1)) & "、" & arr(i, 2)
            End If
        End If
    Next i
    For i = 1 To dic.Count
        brr(i, 1) = dic.keys()(i - 1)
        brr(i, 2) = dic.items()(i - 1)
    Next i
    Sheet1.Range("e3:f65536").ClearContents
    Sheet1.Range("e3").Resize(dic.Count, 2) = brr
End Sub

Amy_yangm

心正意诚身修 发表于 2019-7-22 13:19
=textjoin(",",1,if((A$3:A$13=E3)*(C$3:C$13=0),B$3:B$13))  我的是2007版。没用TEXTJOIn这个函数。你自己 ...

请问数组三键是什么意思呀？没明白{:9_313:}
-----不好意思，我知道了，可为什么出来的结果是FALSE呢{:9_309:}
-----已经搞定了，非常谢谢！{:9_315:}

Amy_yangm

mytto88 发表于 2019-7-22 14:01
vba 写的
Sub kk()
    Dim arr(), brr(), dic As Object

谢谢哒！{:9_315:}vba方式还在学习中

Amy_yangm

心正意诚身修 发表于 2019-7-22 13:20
如果你不是2016版。那么。。。就要麻烦得多。

我用的是WPS{:9_313:}

心正意诚身修

Amy_yangm 发表于 2019-7-22 14:36
我用的是WPS

只要有TEXTJOIN这个函数就可以。