Excel 根据名字获取另一个sheet中的数据

Public Function GetProduct(company_name, postion)

Set d = CreateObject("scripting.dictionary")
last_B = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
bb = Sheets("Sheet2").Range("B1:C" & last_B)
For i = 2 To UBound(bb)
    If bb(i, 1) = company_name And Not IsEmpty(bb(i, 2)) And Not IsNull(bb(i, 2)) Then
        d(bb(i, 2)) = i
    End If
Next
'On Error GoTo myerr
GetProduct = d.Keys()(postion - 1)
'myerr:
'GetProduct = ""
End Function

标签：Function,postion,End,bb,GetProduct,Excel,获取,Sheets,sheet
来源： https://www.cnblogs.com/daodaoxun/p/14867982.html