模板这样做,这步骤我放下面了:
1、E3中公式为=TEXT(INDEX($B:$B,SMALL(IF($A$3:$A$101=$C3,ROW($3:$101),4^8),COLUMN(A2))),"")
注意:此公式为数组公式,粘贴完成后需要按住ctrl+shift,同时再按回车键
2、D3中公式为=E3&" "&F3&" "&G3&" "&H3&" "&I3&" "&J3
备注:模板设计一个地方的人员最多为6个,你需要再加的话自己再下拉右拉复制公式,同时D3中相应的使用&" "&这个连接符号搭配文本符号进行增加显示姓名。
这个只能用 VBA了
Sub abc()
Dim a As Range, d As Range, C As Range
'Set d = Range("D1")
Range("D1:D60000").ClearContents '只清数值
Application.ScreenUpdating = False '实时刷新关闭
For Each a In Range(Range("A1"), Range("A65535").End(3))
For Each C In Range(Range("C1"), Range("C65535").End(3))
If C.Text = a.Text And InStr(C.Offset(0, 1).Text, a.Offset(0, 1).Text) = 0 Then
C.Offset(0, 1).Value = C.Offset(0, 1).Text & " " & a.Offset(0, 1).Text
End If
Next C
Next a
Application.ScreenUpdating = True '实时刷新
End Sub
为了方便使用公式,先在最上面插入一行,输入内容,如图。
在E2输入公式=IFERROR(VLOOKUP($D2&COLUMN(A1),IF({1,0},$A$2:$A$99&COUNTIF(INDIRECT("a2:a"&ROW($2:$99)),$D2),$B$2:$B$99),2,),"")&""按ctrl+shift+回车键,向右向下拉到出现空为止,再把得出的结果合并在一个单元格内,公式=E2&" "&F2&" "&G2