Question

Excel公式求助

Excel版本是家庭学生版的求在一列数据里面如何弄成图片中的样子第一张是之前的 第二张是公式之后的





Answer 1

1、在D12输入

=TEXTJOIN(",",1,IF(MATCH(D$1:D$3&"",D$1:D$3&"",)=ROW($1:$3),D$1:D$3,""))

数组公式，输入后先不要回车，按Ctrl+Shift+Enter结束计算，再向右填充。

2、

在A12输入

=INDEX(A$1:A$10,SMALL(IF(MATCH(A$1:A$10&"",A$1:A$10&"",)=ROW($1:$10),ROW($1:$10),4^8),ROW(1:1)))&""

（数组公式，操作同上，再向下填充）

在D12输入

=TEXTJOIN(",",1,IF(($A$1:$A$10=$A12)*(MATCH(D$1:D$10&"",D$1:D$10&"",)=ROW($1:$10)),D$1:D$10,""))

（数组公式， 操作同上，再向右和向下填充）

以上两道公式，看你需要选择吧。

追问

这个公式我填完了怎么按键也对 显示却是错误啊

追答

你看我的抓图，没错吧？
TEXTJOIN()——合并文本函数，是高版本函数，只能用在Microsoft Excel365版、Microsoft Excel2019版、WPS表格使用。

追问

很棒 都是正确的 可是我的Excel是家庭学生版（捂脸）

追答

下载个《WPS Office》就行了，个人版免费的。

Answer 2

Excel怎样快速根据重复字段合并其它列数据

Answer 3

'自定义公式-按ALT+11-插入-模块(2列查询合并)
Function abc(a As Range, b As Range, c As String, Optional d As String = ",")
Set Ra = a.Find(c)
If Not Ra Is Nothing Then
For i = 1 To a.Rows.Count
If a.Cells(i, 1) = c And b.Cells(i, 1) <> "" And InStr(t, b.Cells(i, 1)) = 0 Then t = t & d & b.Cells(i, 1)
If a.Cells(i, 1) = "" Then Exit For
Next
If t = "" Then
abc = ""
Else
abc = Right(t, Len(t) - 1)
End If
Else
abc = ""
End If
End Function

追问

这个导出的结果不像我的图片里面现实的这样吧

Answer 4

=TEXTJOIN(",",1,IF(A:A=F2,C:C,""))