以 VBA 制一自定函数以处之。

一、启 Excel 文，按“Alt F11”启 VBA 编修之窗，于左虚处右击，“插”，“模”。

二、右虚处粘下列码：

Function HeBing(rng1 As Range, s As String, rng2 As Range, f As String) As String
Dim Arr1, Arr2
Dim r As Long
r = rng1.End(xlDown).Row - rng1.Row + 1
Arr1 = rng1.Resize(r, 1): Arr2 = rng2.Resize(r, 1)
Dim i As Long
For i = 1 To UBound(Arr1)
If Arr1(i, 1) = s Then
If HeBing = "" Then HeBing = Arr2(i, 1) Else HeBing = HeBing & f & Arr2(i, 1)
End If
Next
End Function

三、用法：

=HEBING(于何处觅，觅何物，返何数据，于格内以何隔)

例：=hebing(A:A,C1,B:B,",")