如何把其它单元格里的内容汇总到一个单元格里

姚七柳

如何把其它单元格里的内容汇总到一个单元格里，如表中的黄色表格里的内容汇总到绿色区域内。谢谢。

cyh3230

365高版本可以考虑下函数, 低版本, 考虑下 VBA 或PQ吧

mykitami

=TEXTJOIN(CHAR(10),,REDUCE("",B1:E1,LAMBDA(x,y,VSTACK(x,LET(a,TEXTSPLIT(y,,CHAR(10),1),b,LOOKUP(1,0/ISNUMBER(FIND("主任",a)),a),c,MATCH(b,a,)-1,TEXTJOIN(CHAR(10),,INDEX(a,c),b))))))

M365版本

swl4561255

1. Sub test()
   
2. arr = Range("A1").CurrentRegion
   
3. For i = 1 To UBound(arr)
   
4.     s = ""
   
5.     For j = 2 To UBound(arr, 2) - 1
   
6.         ir = Split(Cells(i, j), Chr(10))
   
7.             For k = 0 To UBound(ir)
   
8.                 If InStr(ir(k), "全天") Then
   
9.                     s = s & Chr(10) & ir(k - 1) & Chr(10) & ir(k)
   
10.                 End If
    
11.             Next
    
12.         Next
    
13.     arr(i, UBound(arr, 2)) = Mid(s, 2)
    
14. Next
    
15. [A1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
16. End Sub

复制代码