¿Cómo copiar el formato de origen de la celda de búsqueda cuando se usa Vlookup en Excel?
En los artículos anteriores, hemos hablado de mantener el color de fondo cuando los valores de vlookup en Excel. Aquí, en este artículo, vamos a presentar un método para copiar todo el formato de celda de la celda resultante al hacer Vlookup en Excel. Haz lo siguiente.
Copie el formato de origen cuando use Vlookup en Excel con una función definida por el usuario
Copie el formato de origen cuando use Vlookup en Excel con una función definida por el usuario
Supongamos que tiene una tabla como se muestra a continuación. Ahora debe verificar si un valor especificado (en la columna E) está en la columna A y devolver el valor correspondiente con el formato en la columna C. Haga lo siguiente para lograrlo.
1. En la hoja de trabajo que contiene el valor que desea visualizar, haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual. Ver captura de pantalla:
2. En la apertura Microsoft Visual Basic para aplicaciones ventana, copie el código VBA a continuación en la ventana Código.
Código VBA 1: Vlookup y valor de retorno con formato
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Luego haga clic recuadro > Móduloy copie el código 2 de VBA a continuación en la ventana del módulo.
Código VBA 2: Vlookup y valor de retorno con formato
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function4. Hacer clic en Herramientas > Referencias. Entonces revisa el Tiempo de ejecución de Microsoft Script en el cuadro Referencias - VBAProject caja de diálogo. Ver captura de pantalla:
5. presione el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana.
6. Seleccione una celda en blanco adyacente al valor de búsqueda y luego ingrese la fórmula =LookupKeepFormat(E2,$A$1:$C$8,3) en el Barra de formulas, y luego presione el Enviar clave.
Nota: En la fórmula, E2 contiene el valor que buscará, $ A $ 1: $ C $ 8 es el rango de la tabla y el número 3 significa que el valor correspondiente que devolverá se ubica en la tercera columna de la tabla. Cámbielos como necesite.
7. Siga seleccionando la primera celda de resultados y luego arrastre el controlador de relleno hacia abajo para obtener todos los resultados junto con su formato, como se muestra a continuación.
Artículos relacionados:
- ¿Cómo visualizar y devolver el color de fondo junto con el valor de búsqueda en Excel?
- ¿Cómo visualizar y devolver el formato de fecha en lugar de un número en Excel?
- ¿Cómo usar vlookup y sum en Excel?
- ¿Cómo vlookup devuelve el valor en la celda adyacente o siguiente en Excel?
- ¿Cómo visualizar el valor y devolver verdadero o falso / sí o no en Excel?
Las mejores herramientas de productividad de oficina
Potencia tus habilidades de Excel con Kutools for Excely experimente la eficiencia como nunca antes. Kutools for Excel Ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab Trae la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
