¿Cómo copiar solo los bordes del rango seleccionado en Excel?

Mientras usas Microsoft Excel, es fácil copiar solo los valores de las celdas, el formato de las celdas, las fórmulas de las celdas, etc., desde un rango con la función Pegado Especial. Pero, ¿alguna vez has intentado copiar solo el estilo de borde de un rango en Excel? Este artículo te mostrará un método para copiar solo los bordes del rango seleccionado a un nuevo rango en Excel.

Usar código VBA para copiar solo los bordes del rango seleccionado

Usar código VBA para copiar solo los bordes del rango seleccionado

El siguiente código VBA puede ayudarte a copiar solo el estilo de borde de las celdas seleccionadas y luego aplicar este estilo de borde a un nuevo rango en Excel. Por favor, sigue los siguientes pasos.

1. Presiona las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana "Microsoft Visual Basic para Aplicaciones", haz clic en "Insertar" > "Módulo", y luego copia y pega el siguiente código VBA en la ventana de Código.

Código VBA: Copiar 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. Presiona la tecla "F5" para ejecutar el código. En el primer cuadro de diálogo emergente de "Kutools for Excel", selecciona el rango con los bordes que necesitas copiar y luego haz clic en el botón "Aceptar".

4. En el segundo cuadro de diálogo de "Kutools for Excel", selecciona una celda para aplicar el borde copiado, luego haz clic en el botón "Aceptar". Ver captura de pantalla:

Luego podrás ver que solo el estilo de borde del rango seleccionado se ha copiado y aplicado a un nuevo rango, como se muestra en la siguiente captura de pantalla.

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 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?