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

2019年5月9日17:42:20 发表评论 31

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

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

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

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

  1. Function HeBing(rng1 As Range, s As String, rng2 As Range, f As String) As String
  2. Dim Arr1, Arr2
  3. Dim r As Long
  4. r = rng1.End(xlDown).Row - rng1.Row + 1
  5. Arr1 = rng1.Resize(r, 1): Arr2 = rng2.Resize(r, 1)
  6. Dim i As Long
  7. For i = 1 To UBound(Arr1)
  8.     If Arr1(i, 1) = s Then
  9.         If HeBing = "" Then HeBing = Arr2(i, 1) Else HeBing = HeBing & f & Arr2(i, 1)
  10.     End If
  11. Next
  12. End Function

3、用法:

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

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

吴蛋蛋

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: