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?