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 con 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.
Copia solo i bordi dell'intervallo selezionato con il codice VBA
Copia solo i bordi dell'intervallo selezionato con il codice VBA
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. Si prega di fare quanto segue.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli, quindi copia e incolla il codice VBA sottostante 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 F5 chiave per eseguire il codice. Nel primo spuntando Kutools for Excel finestra di dialogo, selezionare l'intervallo con i bordi che è necessario copiare, quindi fare clic su OK pulsante.
4. Nella seconda Kutools for Excel finestra di dialogo, selezionare una cella per applicare il bordo copiato, quindi fare clic su OK pulsante. Vedi screenshot:
Quindi puoi vedere solo lo stile del bordo dell'intervallo selezionato copiato e applicato a un nuovo intervallo come mostrato nell'immagine sottostante.
Articoli correlati:
- Come copiare e incollare i valori saltando i duplicati in Excel?
- Come copiare i dati delle celle con l'altezza della riga e la larghezza della colonna in Excel?
- Come copiare la cella come valore di testo non formula in Excel?
- Come copiare i dati nella successiva riga vuota di un altro foglio di lavoro in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!