下面的图,最后结果要在D列返回SZ-0SZ-1SZ-2SZ-3SZ-6SZ-7SZ-8
'自定义公式-按ALT+11-插入-模块(找值多行显示)
Function 找值多行显示2(a As Range, b As Range, c As Integer) As String
For i = 1 To a.Rows.Count
For j = 1 To b.Rows.Count
If a.Cells(i, 1) = b.Cells(j, 1) Then
m = m + 1
If m = c Then
找值多行显示2 = a.Cells(i, 2)
Exit Function
Else
Exit For
End If
End If
Next
Next
End Function