一个通用的“查找某列数据中某重复数据对应的其他列的值”的自定义函数
一个通用的“查找某列数据中某重复数据对应的其他列的值”的自定义函数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）返回多个数值，那么这些数值将用“、”分隔
页:
[1]