Millora de la funció VLOOKUP

Com empaquetar correctament un paracaigudes?

Benefici. Edició 2, revisada.

Suposem que tenim la següent taula d'ordres:

Hem de saber, per exemple, quin va ser l'import de la tercera comanda d'Ivanov o quan Petrov va executar el seu segon acord. La funció VLOOKUP integrada només pot cercar la primera ocurrència del cognom a la taula i no ens ajudarà. Preguntes com "Qui era el gerent de la comanda número 10256?" també romandrà sense resposta, tk. la VLOOKUP integrada no és capaç de retornar valors de les columnes a l'esquerra de la cerca.

Tots dos problemes es resolen d'un sol cop: anem a escriure la nostra pròpia funció que buscarà no només la primera, sinó, en el cas general, la enèsima ocurrència. A més, podrà cercar i produir resultats en qualsevol columna. Diguem-ho, per exemple, VLOOKUP2. 

Obriu l'Editor de Visual Basic prement ALT+F11 o seleccionant al menú Servei – Macro – Editor Visual Basic (Eines — Macro — Editor Visual Basic), inseriu un mòdul nou (menú Inserir – Mòdul) i copieu-hi el text d'aquesta funció:

Funció VLOOKUP2 (Taula com a variant, SearchColumnNum com a llarg, SearchValue com a variant, _ N com a llarg, ResultColumnNum com a llarg) Dim i As Long, iCompta com a llarg Seleccioneu el tipus de cas Nom(Taula) Cas "Range" Per a i = 1 A taula.Files .Count If Table.Cells(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1 End If If iCount = N Then VLOOKUP2 = Table.Cells(i, ResultColumnNum) Exit For End If Next i Case "Variant()" For i = 1 a UBound(Table) If Table(i, SearchColumnNum) = SearchValue Aleshores iCount = iCount + 1 If iCount = N Aleshores VLOOKUP2 = Table (i, ResultColumnNum) Sortir per a final Si el següent i Finalitzar Selecció de la funció de finalització  

Tanqueu l'Editor de Visual Basic i torneu a Excel.

Ara a través Inserir - Funció (Insereix — Funció) en categoria Usuari definit (Usuari definit) podeu trobar la nostra funció VLOOKUP2 i utilitzar-la. La sintaxi de la funció és la següent:

=VLOOKUP2(taula; nombre_de_columnes_on_busquem; valor_de_cerca; N; nombre_de_columnes_de_a_obtenir_el_valor)

Ara les limitacions de la funció estàndard no ens són un obstacle:

PS Agraïment especial a The_Prist per millorar la funció perquè pugui cercar en llibres tancats.

• Cercar i substituir dades d'una taula a una altra mitjançant la funció BUSCAR V
• "Cerca V esquerra" mitjançant les funcions INDEX i MATCH