¿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
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
Office Tab lleva 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!
