Simone'冲指拿自定义公式-按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
