如图:左边数据列分别有:年龄、成绩、分值;右边成绩为手工输入,自动根据输入的年龄匹配左边的数据,从而显示分值;自动匹配为近似值。比如:年龄输入3,则自动匹配三岁对应的数据列,成绩输入:14.5,则自动在3岁对应的数据列匹配分值,14.5在分值1和2之间,取1。请问大神们,这样怎么设置公式,实现自动化呢?自动根据年龄判断读取匹配数据列,自动得出分值。
'自定义公式-按ALT+F11-插入-模块-粘贴代码-将表格另存为启用宏的格式(xlsm)
Function 分值(a As Range, b As Range)
For i = 1 To a.Columns.Count
If a.Cells(1, i) <> "" Then
If b.Cells(1, 1) = Left(a.Cells(1, i), 1) * 1 Then
For j = 1 To a.Rows.Count
If b.Cells(1, 2) < a.Cells(j, i) And b.Cells(1, 2) > a.Cells(j + 1, i) Then 分值 = a.Cells(j, 1)
Next
End If
End If
Next
If 分值 = "分值" Then 分值 = 1
End Function