¿Cómo hacer una búsqueda vertical y devolver el valor coincidente con el comentario de la celda?
Cuando aplicas la función de búsqueda vertical para devolver el valor coincidente, solo extraerá el valor sin el formato, como el color de relleno, la fuente o los comentarios, entre otros. Pero, a veces, es posible que necesites hacer una búsqueda vertical y devolver el valor coincidente incluyendo también el comentario para obtener el resultado que se muestra en la siguiente captura de pantalla. ¿Cómo podrías resolver esta tarea en Excel?
Búsqueda vertical y devolución del valor coincidente con el comentario de la celda mediante el uso de código VBA
El siguiente código VBA puede ayudarte a hacer una búsqueda vertical y devolver el valor coincidente con su comentario; por favor, sigue los siguientes pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, luego copia y pega el siguiente código en la Ventana del Módulo.
Código VBA: Búsqueda vertical y devolución del valor coincidente con el comentario de la celda:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
Application.Volatile
Dim xRet As Variant 'could be an error
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Columns(1), FType)
If IsError(xRet) Then
VlookupComment = "Not Found"
Else
Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
VlookupComment = xCell.Value
With Application.Caller
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If Not xCell.Comment Is Nothing Then
.AddComment xCell.Comment.Text
End If
End With
End If
End Function
3. Luego guarda el código y cierra la ventana del código, introduce esta fórmula: =vlookupcomment(H2,A2:C10,3,FALSO) en una celda en blanco para ubicar el resultado, y presiona la tecla Entrar; el valor coincidente así como el comentario se devuelven al instante, ver captura de pantalla:
Nota: En la fórmula anterior, H2 es el valor de búsqueda que deseas devolver, A2:C10 es la tabla de datos que deseas usar, el número 3 es el número de columna que contiene el valor coincidente que deseas devolver.

Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Las mejores herramientas de productividad para Office
Impulsa al máximo tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para potenciar la productividad y ahorrar tiempo.Haz clic aquí para obtener la función que más necesitas...
Office Tab aporta una interfaz de pestañas a Office y hace tu trabajo mucho más sencillo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en vez de en nuevas ventanas.
- ¡Aumenta tu productividad hasta un50% y reduce cientos de clics de ratón cada día!