Mellorando a función BUSCAR V

Como embalar correctamente un paracaídas?

Beneficio. Edición 2, revisada.

Digamos que temos a seguinte táboa de pedidos:

Necesitamos saber, por exemplo, cal foi o importe do terceiro pedido de Ivanov ou cando Petrov executou o seu segundo acordo. A función VLOOKUP integrada só pode buscar a primeira aparición do apelido na táboa e non nos axudará. Preguntas como "Quen era o xestor da orde número 10256?" tamén permanecerá sen resposta, tk. o VLOOKUP integrado non é capaz de devolver valores das columnas á esquerda da busca.

Estes dous problemas resólvense dunha soa vez: escribamos a nosa propia función que buscará non só a primeira, senón, no caso xeral, a enésima ocorrencia. Ademais, poderá buscar e producir resultados en calquera columna. Chamémoslle, por exemplo, BUSCARV2. 

Abra o Editor de Visual Basic premendo ALT+F11 ou seleccionando no menú Servizo – Macro – Editor de Visual Basic (Ferramentas — Macro — Editor de Visual Basic), inserir un novo módulo (menú Inserir – Módulo) e copia alí o texto desta función:

Función VLOOKUP2(Táboa como variante, SearchColumnNum como longo, SearchValue como variante, _ N como longo, ResultColumnNum como longo) Dim i As Long, iCount As Long Seleccione Case TypeName(Táboa) Case "Range" For i = 1 To Table.Rows .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 To UBound(Table) If Table(i, SearchColumnNum) = SearchValue Entón iCount = iCount + 1 If iCount = N Then VLOOKUP2 = Table (i, ResultColumnNum) Saír para o final Se segue i End Seleccionar función final  

Pecha o Editor de Visual Basic e volve a Excel.

Agora pasou Inserir - Función (Inserir — Función) na categoría Definido polo usuario (Definido polo usuario) podes atopar a nosa función VLOOKUP2 e usala. A sintaxe da función é a seguinte:

=VLOOKUP2(táboa; número_de_columnas_onde_buscamos; valor_busca; N; número_de_columnas_de_a_obter_valor)

Agora as limitacións da función estándar non son un obstáculo para nós:

PS Agradecemento especial a The_Prist por mellorar a función para que poida buscar en libros pechados.

• Buscar e substituír datos dunha táboa a outra mediante a función BUSCAR V
• "BUSCAR V ESQUERDA" usando as funcións INDEX e MATCH