一个通用的“查找某列数据中某重复数据对应的其他列的值”的自定义函数

一个通用的“查找某列数据中某重复数据对应的其他列的值”的自定义函数

Public Function getnames(fenshu As Range, k As Range, s As Integer)
Dim i As Integer
Dim ii As Range
Dim Smax As String
Smax = ""
  j = k.Column
  For Each ii In k.Cells
  i = ii.Row
  If Cells(i, j).Value = fenshu Then
   If Smax = "" Then
   Smax = Cells(i, s).Value
   Else
   Smax = Smax + "、" + Cells(i, s).Value
   End If
  End If
Next
getnames = Smax
End Function

使用方法：
=getnames(D56,D3:D54,3)共三个参数：
   D56是需要查找的分数所在单元格（这里是语文最高分）
   D3:D54是被查找的数据区域（这里是语文分数列）
   3 是需要返回数据所在的列，这里的3列表示返回“姓名”
如果给定的数据区域中(D3：D54)中含有多个被查找的数（D56），需要在相应列中（3）返回多个数值，那么这些数值将用“、”分隔