¿Cómo copiar únicamente los bordes del rango seleccionado en Excel?
Al trabajar en Microsoft Excel, a menudo necesita replicar un formato específico de un rango a otro. Las operaciones estándar de copiar y pegar le permiten transferir valores, fórmulas o incluso el formato general de las celdas mediante la función Pegado Especial. Sin embargo, puede encontrarse en situaciones en las que solo desee replicar el estilo de bordede un rango seleccionado, sin copiar otros formatos como colores, fuentes o rellenos. Por ejemplo, puede que desee mantener un diseño uniforme de bordes en varias secciones de su hoja de cálculo o aplicar rápidamente estilos de bordes a nuevas plantillas. Lamentablemente, Excel no ofrece una opción directa para copiar y pegar únicamente los bordes de las celdas. Este tutorial le guiará paso a paso en un método práctico para copiar exclusivamente los bordes de cualquier rango seleccionado y aplicarlos a otro rango en Excel, asegurando coherencia visual sin modificar ninguna otra propiedad de las celdas.
Utilice código VBA para copiar únicamente los bordes de Seleccionar rango
Solución alternativa: Replicar manualmente los bordes con el Usando formato Copiar formato
Utilice código VBA para copiar únicamente los bordes de Seleccionar rango
Mediante una sencilla macro VBA, puede copiar de forma eficiente el estilo exacto de los bordes de una celda o rango y aplicarlo en otra ubicación de su hoja de cálculo, independientemente del contenido u otros atributos de formato. Esta solución es ideal cuando necesita automatizar tareas repetitivas o agilizar su flujo de trabajo al gestionar tablas y plantillas con estilos personalizados. Siga los pasos detallados a continuación para ejecutar el código VBA de forma segura y preste atención a los consejos útiles sobre los parámetros.
1. Pulse simultáneamente las teclas Alt + F11 en su teclado. Se abrirá la ventana del editor de Microsoft Visual Basic para Aplicaciones (VBA). Si no ve la pestaña Programador en Excel, utilice directamente esta combinación de teclas, ya que abre el editor VBA en cualquier versión moderna de Excel.
2. En el editor de VBA, haga clic en Insertar en la barra de menú y seleccione Módulo. Se abrirá una nueva ventana de módulo en blanco. Copie y pegue el siguiente código de VBA en dicha ventana.
Código VBA: Copiar únicamente los bordes de Seleccionar rango en Excel
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3. Tras pegar el código, puede ejecutar la macro pulsando la tecla F5 o seleccionando Ejecutar en la barra de herramientas del editor VBA. Cuando aparezca el primer cuadro de diálogo titulado "Kutools para Excel«, utilice el ratón para resaltar el rango que contiene los bordes que desea replicar y confirme haciendo clic en »Aceptar".
4. A continuación, aparecerá un segundo cuadro de diálogo titulado "Kutools para Excel«. Seleccione ahora la celda superior izquierda del rango de destino donde desee aplicar el estilo de borde copiado. Una vez elegida la celda de destino (y, si procede, el rango completo), haga clic en »Aceptar". Consulte la ilustración siguiente:
Tras completar estos pasos, el diseño de bordes del rango original se habrá aplicado en la nueva ubicación seleccionada. Únicamente se transfiere el formato de los bordes; los datos de las celdas, los colores y otras características permanecen inalterados. Esto resulta útil al crear tablas uniformes o al copiar la estética de una hoja de cálculo. A continuación se muestra un resultado de ejemplo:
Solución alternativa: Replicar manualmente los bordes con el Usando formato Copiar formato
Para usuarios que prefieran un enfoque sin código para copiar bordes, la herramienta integrada de Excel Copiar formato ofrece una forma rápida de duplicar el formato de los bordes de un rango a otro, junto con otros estilos. A continuación te explicamos cómo usarla:
- Seleccione el rango que contiene los bordes que desea copiar.
- En la pestaña Inicio, en el grupo Portapapeles, haga clic en Copiar formato (icono del pincel).
- El cursor se transforma en un pincel. Seleccione el rango de destino donde desee que aparezcan los bordes. Esto aplicará los bordes del rango original junto con otros formatos (como la fuente y Color de relleno).
Ventajas: Es sencilla y está disponible directamente en Excel; ideal para tareas rápidas de copia visual.
Inconvenientes: No permite copiar únicamente el estilo de los bordes, ya que también incluye otros formatos de celda, como el color de relleno, cambios de fuente, etc. Por tanto, no es la opción ideal si desea mantener intactos el contenido y el formato de las celdas de destino, salvo los bordes.
Cada método ofrece ventajas específicas y se adapta a distintas necesidades de flujo de trabajo: VBA permite transferir únicamente los bordes con precisión, mientras que Copiar formato facilita una copia rápida de todos los estilos aplicados.
Artículos relacionados:
- ¿Cómo copiar y pegar valores en Excel omitiendo los duplicados?
- ¿Cómo copiar datos de celdas conservando la altura de fila y el ancho de columna en Excel?
- ¿Cómo copiar una celda como valor de texto y no como fórmula en Excel?
- ¿Cómo copiar datos a la siguiente fila vacía de otra hoja de cálculo en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos