Hoe kopieert u alleen de randen van het geselecteerde bereik in Excel?
Tijdens het werken in Microsoft Excel moet u vaak specifieke opmaak van het ene naar het andere bereik repliceren. Met standaard kopiëren-plakken kunt u celwaarden, formules of zelfs de algemene celopmaak kopiëren via de functie Plakken speciaal. Er kunnen zich echter situaties voordoen waarin u alleen de randstijlwanneer u de randen van een bereik wilt repliceren, zonder andere opmaak zoals kleuren, lettertypen of achtergrondvullingen over te nemen. U wilt bijvoorbeeld een consistente tabelrandindeling behouden in meerdere secties van uw werkblad of bestaande randlay-outs kopiëren naar nieuwe sjablonen. Helaas biedt Excel geen eenvoudige, ingebouwde optie om alleen celranden te kopiëren en plakken. In deze handleiding begeleiden we u stap voor stap door een praktische methode om exclusief de randen van een willekeurig bereik te kopiëren en toe te passen op een nieuw bereik in Excel—zodat uw opmaak perfect consistent blijft, zonder andere celeigenschappen aan te tasten.
Gebruik VBA-code om alleen de randen van Bereik selecteren te kopiëren
Alternatieve oplossing: Randen handmatig repliceren met Met opmaak-penseel
Gebruik VBA-code om alleen de randen van Bereik selecteren te kopiëren
Met een eenvoudige VBA-macro kunt u efficiënt de exacte randstijl van één cel of bereik kopiëren en toepassen op een andere locatie in uw werkblad, ongeacht de inhoud of andere opmaakkenmerken. Deze oplossing is ideaal wanneer u automatisering nodig heeft voor herhalende taken of uw workflow wilt versnellen bij het werken met aangepaste tabellen en sjablonen. Volg de onderstaande gedetailleerde stappen om de VBA-code veilig uit te voeren en let op de nuttige parameteraanwijzingen onderweg.
1. Druk tegelijkertijd op de toetsen Alt+F11 op uw toetsenbord. Hiermee opent u het venster van de Microsoft Visual Basic for Applications (VBA)-editor. Ziet u het tabblad Ontwikkelaars niet in Excel? Gebruik dan gewoon deze sneltoetscombinatie — deze opent de VBA-editor direct in elke moderne versie van Excel.
2. Klik in de VBA-editor op Invoegen in de menubalk en selecteer vervolgens Module. Er opent zich een nieuw, leeg modulevenster. Kopieer en plak de volgende VBA-code in dit venster.
VBA-code: Alleen randen van Bereik selecteren kopiëren 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. Nadat u de code hebt geplakt, voert u de macro uit door op de toets F5 te drukken of door in de werkbalk van de VBA-editor Uitvoeren te selecteren. Wanneer u in het eerste dialoogvenster „Kutools voor Excel” wordt gevraagd, selecteert u met uw muis het bereik met de randen die u wilt kopiëren en bevestigt u door op „OK” te klikken.
4. Er verschijnt een tweede dialoogvenster met de titel „Kutools voor Excel”. Selecteer nu de cel linksboven in het doelbereik waar u de gekopieerde randstijl wilt toepassen. Zodra u uw doelcel (en eventueel een bereik) heeft geselecteerd, klikt u op „OK”. Zie onderstaande afbeelding:
Nadat u deze stappen hebt voltooid, is het randontwerp van het oorspronkelijke bereik nu toegepast op de door u geselecteerde nieuwe locatie. Alleen de randopmaak wordt overgenomen; celgegevens, kleuren en andere kenmerken blijven ongewijzigd. Dit is handig bij het maken van uniforme tabellen of het kopiëren van werkbladesthetiek. Hieronder ziet u een voorbeeldresultaat:
Alternatieve oplossing: Randen handmatig repliceren met Met opmaak-penseel
Voor gebruikers die een oplossing zonder code zoeken, biedt de ingebouwde Excel-functie Opmaak overnemen een snelle manier om randopmaak — en enkele andere opmaakstijlen — van het ene naar het andere bereik te kopiëren. Zo werkt het:
- Selecteer het bereik met de randen die u wilt kopiëren.
- Klik op het tabblad Start, in de groep Klembord, op de knop Opmaak overnemen (penseelicoon).
- Uw cursor verandert in een penseel. Selecteer het doelbereik waar u de randen wilt toepassen. Hierdoor worden de randen van het oorspronkelijke bereik en enkele andere opmaakinstellingen (zoals lettertype en Vulkleur) tegelijk toegepast.
Voordelen: Eenvoudig en direct ingebouwd in Excel; perfect voor snelle, visuele kopieertaken.
Nadelen: U kunt niet alleen de randstijl kopiëren – er worden ook andere celopmaakkenmerken meegenomen, zoals vulkleur en lettertypeaanpassingen. Daardoor is deze optie minder geschikt als u de inhoud en bestaande opmaak van de doelcellen ongewijzigd wilt laten, behalve de randen.
Elke methode heeft zijn eigen specifieke sterke punten en is geschikt voor verschillende workflowbehoeften: VBA zorgt voor nauwkeurige overdracht van alleen randen, terwijl Opmaak overnemen het snel kopiëren van alle opmaak vereenvoudigt.
Gerelateerde artikelen:
- Hoe kopieert en plakt u waarden in Excel zonder duplicaten mee te nemen?
- Hoe kopieert u celgegevens inclusief rijhoogte en kolombreedte in Excel?
- Hoe kopieert u een cel als tekstwaarde in plaats van als formule in Excel?
- Hoe kopieert u gegevens naar de volgende lege rij van een ander werkblad in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins