Hoe alleen de randen van het geselecteerde bereik in Excel kopiëren?
Bij het gebruik van Microsoft Excel is het eenvoudig om alleen celwaarden, celopmaak, cel formules enzovoort van een bereik te kopiëren met behulp van de functie Plakken Speciaal. Maar heb je ooit geprobeerd om alleen de randstijl van een bereik in Excel te kopiëren? Dit artikel laat je een methode zien om alleen de randen van het geselecteerde bereik naar een nieuw bereik in Excel te kopiëren.
Gebruik VBA-code om alleen de randen van het geselecteerde bereik te kopiëren
Gebruik VBA-code om alleen de randen van het geselecteerde bereik te kopiëren
De volgende VBA-code kan je helpen om alleen de randstijl van de geselecteerde cellen te kopiëren en vervolgens deze randstijl toe te passen op een nieuw bereik in Excel. Volg de onderstaande stappen.
1. Druk op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.
2. Klik in het venster "Microsoft Visual Basic for Applications" op "Invoegen" > "Module", en kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster.
VBA-code: Kopieer alleen de randen van het geselecteerde bereik 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. Druk op de toets "F5" om de code uit te voeren. Selecteer in het eerste pop-upvenster van "Kutools voor Excel" het bereik met de randen die je wilt kopiëren en klik vervolgens op de knop "OK".
4. Selecteer in het tweede pop-upvenster van "Kutools voor Excel" een cel waarop je de gekopieerde rand wilt toepassen en klik vervolgens op de knop "OK". Zie screenshot:
Je zult zien dat alleen de randstijl van het geselecteerde bereik wordt gekopieerd en toegepast op een nieuw bereik, zoals te zien is in de onderstaande screenshot.
Gerelateerde artikelen:
- Hoe waarden kopiëren en plakken terwijl duplicaten worden overgeslagen in Excel?
- Hoe celgegevens kopiëren met rijhoogte en kolombreedte in Excel?
- Hoe een cel als tekstwaarde kopiëren, niet als formule in Excel?
- Hoe gegevens kopiëren naar de eerstvolgende lege rij van een ander werkblad in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen