¿Cómo copiar solo los bordes del rango seleccionado en Excel?
Al usar Microsoft Excel, es fácil copiar solo valores de celda, formato de celda, fórmulas de celda, etc. de un rango con la función Pegado especial. Pero, ¿alguna vez ha intentado copiar solo el estilo de borde de un rango en Excel? Este artículo le mostrará el método para copiar solo los bordes del rango seleccionado a un nuevo rango en Excel.
Copie solo los bordes del rango seleccionado con código VBA
Copie solo los bordes del rango seleccionado con código VBA
El siguiente código de VBA puede ayudarlo a copiar solo el estilo de borde de las celdas seleccionadas y luego aplicar este estilo de borde a un nuevo rango en Excel. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, y luego copie y pegue el siguiente código VBA en la ventana Código.
Código de VBA: copie solo los bordes del rango seleccionado 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. presione el F5 clave para ejecutar el código. En la primera aparición Kutools for Excel cuadro de diálogo, seleccione el rango con bordes que necesita copiar y luego haga clic en el OK del botón.
4. En el segundo Kutools for Excel cuadro de diálogo, seleccione una celda para aplicar el borde copiado, luego haga clic en el OK botón. Ver captura de pantalla:
Luego puede ver que solo el estilo de borde del rango seleccionado se copia y se aplica a un nuevo rango como se muestra a continuación.
Artículos relacionados:
- ¿Cómo copiar y pegar valores omitiendo duplicados en Excel?
- ¿Cómo copiar datos de celdas con altura de fila y ancho de columna en Excel?
- ¿Cómo copiar la celda como valor de texto, no como fórmula en Excel?
- ¿Cómo copiar datos a la siguiente fila vacía de otra hoja de trabajo en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y 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 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!