可以用一个公式得出答案吗

zhangcheng6688

学习一下数组，打扰了
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To 10000, 1 To 2)
For i = 1 To UBound(arr)
   ss = Split(arr(i, 2), "、")
   For j = 0 To UBound(ss)
      m = m + 1
      brr(m, 1) = arr(i, 1)
      brr(m, 2) = ss(j)
   Next
Next
[d1].Resize(m, 2) = brr
End Sub

mjm04

=DROP(REDUCE("",TEXTSPLIT(TEXTJOIN("、",,B1:B4),,"、"),LAMBDA(a,b,VSTACK(a,HSTACK(FILTER(A1:A4,ISNUMBER(FIND(b,B1:B4))),b)))),1)