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
Beautiful is better than ugly.
Explicit is better than implicit.
Simple is better than complex.
Complex is better than complicated.
Flat is better than nested.
Sparse is better than dense.
Readability counts.
Special cases aren't special enough to break the rules.
Although practicality beats purity.
Errors should never pass silently.
Unless explicitly silenced.
In the face of ambiguity, refuse the temptation to guess.
There should be one-- and preferably only one --obvious way to do it.
Although that way may not be obvious at first unless you're Dutch.
Now is better than never.
Although never is often better than *right* now.
If the implementation is hard to explain, it's a bad idea.
If the implementation is easy to explain, it may be a good idea.
Namespaces are one honking great idea -- let's do more of those!
