'自定义公式-按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