合并姓名

zpy2

jiangcy81 发表于 2023-7-21 10:32
新函数，没这版本用不了

sql。。。。。。。

jiangcy81

zpy2 发表于 2023-7-21 19:55
sql。。。。。。。

不对，只要正常的

jiangcy81

Tony412 发表于 2023-7-21 14:08
D2: =IF(C2"正常","",B2&",")&IFERROR(VLOOKUP(A2,A3:D22,4,FALSE),"")
F2：=MID(VLOOKUP(E2,$A$2:$D$22,4 ...

这个可以用

zpy2

jiangcy81 发表于 2023-7-21 22:50
不对，只要正常的

cli_add_html~<pre>;select ${field_arr[0]},group_concat(`${field_arr[1]}`,',') `${field_arr[1]}` from 基础二列textjoin之组别合并姓名分行 where 状态 like "正常" group by ${field_arr[0]} order by rowid;

lihaosh

G2单元格
=CUSTOM_TEXTJOIN_FILTER(",",$B$1:$B$22,$A$1:$A$22,E2,$C$1:$C$22,"正常")

1. Function CUSTOM_TEXTJOIN_FILTER(delimiter As String, rng1 As Range, rng2 As Range, criteria1 As Variant, rng3 As Range, criteria2 As Variant) As String
   
2.     Dim result As String
   
3.     Dim i As Long
   
4.     For i = 1 To rng1.Rows.Count
   
5.         If rng2.Cells(i, 1).Value = criteria1 And rng3.Cells(i, 1).Value = criteria2 Then
   
6.             result = result & rng1.Cells(i, 1).Value & delimiter
   
7.         End If
   
8.     Next i
   
9.     If Len(result) > 0 Then
   
10.         result = Left(result, Len(result) - Len(delimiter))
    
11.     End If
    
12.     CUSTOM_TEXTJOIN_FILTER = result
    
13. End Function
    
14.    

复制代码

lihaosh

PQ中用
文本筛选器=“正常“，添加列”输入=Text.Combine([B],",")
关闭并加载