用VBA编一个自定义函数进行处理。

1、打开Excel文件，按“Alt F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，“模块”。

Excel查找返回多个值，并将返回的值放在同一个单元格里面

2、右侧空白处粘贴下面的代码：

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

3、用法：

=HEBING(在哪里查找，查找什么，返回对应的什么数据，在单元格内用什么隔开)

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

最后修改：2019 年 05 月 09 日
© 允许规范转载
如果觉得我的文章对你有用，请随意赞赏