Excel怎么把一列的单元格内容变成一列并用/分隔开？

Excel怎么把一列的单元格内容变成一列并用/分隔开？如下图所示

用代码吧

Function 条件合并(条件区域 As Range, 条件 As String, 合并区域) As String

  Dim arr, arr2, item As Integer, Answer As String

  arr = 条件区域.Columns(1).Value

  arr2 = 合并区域.Resize(UBound(arr, 1), UBound(arr, 2)).Columns(1).Value

  For item = 1 To UBound(arr, 1)

    If arr(item, 1) = 条件 Then Answer = Answer & arr2(item, 1) & "/"

  Next item

  条件合并 = Mid(Answer, 1, Len(Answer) - 1)

End Function