excel - texto - VLOOKUP con múltiples criterios que devuelven valores en una celda

buscarh con dos condiciones

Question

Encontré este VBA que es capaz de devolver todos los valores coincidentes en una celda usando un criterio para que coincida:

Function MYVLOOKUP(pValue As String, pWorkRng As Range, pIndex As Long)
''Update 20150310
Dim rng As Range
Dim xResult As String
xResult = ""
For Each rng In pWorkRng
If rng = pValue Then
xResult = xResult & " " & rng.Offset(0, pIndex - 1)
End If
Next
MYVLOOKUP = xResult
End Function

Pero necesito esta VLOOKUP para devolver los valores en comparación con los criterios de coincidencia múltiple.

¿Alguna idea de cómo podría actualizarse?

Gracias. Actualizar a continuación:

Tabla de datos:

Necesito la fórmula para devolver valores en una celda donde coinciden A1-1A y A.0002. El resultado debería ser 8 3

Answer 1

Aquí hay un enfoque ligeramente diferente.

Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
Dim d As Long
Dim c As Long
Dim arr2()
Dim t As Long, y As Long
t = -1
y = -1
If TypeName(arr) = "Range" Then
arr2 = arr.Value
Else
arr2 = arr
End If
On Error Resume Next
t = UBound(arr2, 2)
y = UBound(arr2, 1)
On Error GoTo 0
If t >= 0 And y >= 0 Then
For c = LBound(arr2, 1) To UBound(arr2, 1)
For d = LBound(arr2, 1) To UBound(arr2, 2)
If arr2(c, d) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
End If
Next d
Next c
Else
For c = LBound(arr2) To UBound(arr2)
If arr2(c) <> "" Or Not skipblank Then
TEXTJOIN = TEXTJOIN & arr2(c) & delim
End If
Next c
End If
TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function

Le permite determinar si el delímetro, como puede tener , o solo un espacio o cualquier cosa que quiera poner entre los valores de retorno.

El segundo criterio pregunta si desea devolver un espacio vacío para cualquiera que esté vacío.

El tercero pondría una forma de matriz de IF () que usa los criterios que desea filtrar los valores de retorno.

Entonces, en tu caso, usarías esto en forma de matriz:

=TEXTJOIN(" ",TRUE,IF((A2:A7="A")*(B2:B7=2),C2:C7,""))

El " " dice que queremos un espacio entre los valores.

El TRUE significa que omitimos los espacios en blanco, esto es importante ya que enviamos espacios en blanco cuando los valores no están justificados por el filtro.

el IF((A2:A7="A")*(B2:B7=2),C2:C7,"") recorre las columnas y devuelve los valores cuando ambas pruebas booleanas son VERDADERAS. De lo contrario, devuelve un espacio en blanco.

Al ser una fórmula de matriz, se debe confirmar con Ctrl-Shift-Enter al salir del modo de edición en lugar de Entrar. Si se hace correctamente, Excel colocará {} alrededor de la fórmula.

Si desea devolver la columna completa, simplemente puede usar:

=TEXTJOIN(" ",TRUE,C2:C7)

En forma regular y devolvería 8 3 3 9 2 3 en una celda.

NOTA

Si tiene Office 365 Excel, TEXTJOIN es una fórmula que existe de forma nativa y que se ingresa como arriba en ambos casos.

Simplemente usaría las fórmulas como se describe arriba y no usaría el código vba.