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?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in