Come copiare solo i bordi dell'intervallo selezionato in Excel?

Durante l'utilizzo di Microsoft Excel, è facile copiare solo i valori delle celle, la formattazione delle celle, le formule delle celle e così via da un intervallo utilizzando la funzione Incolla speciale. Ma hai mai provato a copiare solo lo stile del bordo da un intervallo in Excel? Questo articolo ti mostrerà il metodo per copiare solo i bordi dell'intervallo selezionato in un nuovo intervallo in Excel.

Usa il codice VBA per copiare solo i bordi dell'intervallo selezionato

Usa il codice VBA per copiare solo i bordi dell'intervallo selezionato

Il seguente codice VBA può aiutarti a copiare solo lo stile del bordo delle celle selezionate e quindi applicare questo stile del bordo a un nuovo intervallo in Excel. Procedi come segue.

1. Premi i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Nella finestra "Microsoft Visual Basic for Applications", clicca su "Inserisci" > "Modulo", e poi copia e incolla il seguente codice VBA nella finestra del Codice.

Codice VBA: Copia solo i bordi dell'intervallo selezionato in 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. Premi il tasto "F5" per eseguire il codice. Nel primo riquadro di dialogo di "Kutools for Excel" che appare, seleziona l'intervallo con i bordi che desideri copiare, quindi fai clic sul pulsante "OK".

4. Nel secondo riquadro di dialogo di "Kutools for Excel", seleziona una cella a cui applicare il bordo copiato, quindi fai clic sul pulsante "OK". Vedi screenshot:

A questo punto puoi vedere che solo lo stile del bordo dell'intervallo selezionato viene copiato e applicato a un nuovo intervallo, come mostrato nello screenshot sottostante.

Articoli correlati:

• Come copiare e incollare valori saltando i duplicati in Excel?
• Come copiare i dati delle celle mantenendo l'altezza delle righe e la larghezza delle colonne in Excel?
• Come copiare una cella come valore testuale e non come formula in Excel?
• Come copiare i dati nella riga vuota successiva di un altro foglio di lavoro in Excel?