有没有大佬，根据黄色区域的数据，在红色写函数完成，有很多

有没有大佬在

=textjoin("",1,IF(A1:A10=C1,B1:B10,""))
三键结束

'有一处示例是错的
Option Explicit
Sub 按空行转置()
　Dim a, i, m, t
　a = Range("a2:b" & Cells(Rows.Count, "a").End(xlUp).Row + 1).Value
　For i = 1 To UBound(a) - 1
　　t = t & a(i, 2)
　　If Len(a(i + 1, 1)) = 0 Then
　　　m = m + 1
　　　a(m, 1) = a(i, 1): a(m, 2) = t: t = vbNullString: i = i + 1
　　End If
　Next
　[d2].Resize(m, 2) = a
End Sub

textjion

let
源 = Excel.CurrentWorkbook(){[Name="表5"]}[Content],
更改的类型 = Table.TransformColumnTypes(源,{{"序号", Int64.Type}, {"箱号", type text}}),
分组的行 = Table.Group(更改的类型, {"序号"}, {{"箱号汇总", each Text.Combine([箱号],""),type text}}),
筛选的行 = Table.SelectRows(分组的行, each ([序号] <> null))
in
筛选的行

C2=B2&IFERROR(","&VLOOKUP(A2,A3:C10,3,FALSE),"") 下拉至C9
C10=B10
F2=VLOOKUP(E2,A2:C10,3,FALSE)
适用于所有的版本

每个都前面少一个字符"F".这是哪出了问题