Hoe kopieer ik alleen randen van het geselecteerde bereik in Excel?
Als u Microsoft Excel gebruikt, is het eenvoudig om alleen celwaarden, celopmaak, celformules enzovoort uit een bereik te kopiëren met de functie Plakken speciaal. Maar heb je ooit geprobeerd om alleen een randstijl uit een bereik in Excel te kopiëren? Dit artikel laat u zien hoe u alleen de randen van het geselecteerde bereik naar een nieuw bereik in Excel kopieert.
Kopieer alleen de randen van het geselecteerde bereik met VBA-code
Kopieer alleen de randen van het geselecteerde bereik met VBA-code
Met de volgende VBA-code kunt u alleen de randstijl van geselecteerde cellen kopiëren en deze randstijl vervolgens toepassen op een nieuw bereik in Excel. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.
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 de F5 sleutel om de code uit te voeren. Bij de eerste die opduikt Kutools for Excel dialoogvenster, selecteer het bereik met randen dat u wilt kopiëren en klik vervolgens op de OK knop.
4. In de tweede Kutools for Excel dialoogvenster, selecteer een cel om de gekopieerde rand toe te passen en klik vervolgens op OK knop. Zie screenshot:
Vervolgens kunt u zien dat alleen de randstijl van het geselecteerde bereik is gekopieerd en toegepast op een nieuw bereik, zoals hieronder wordt getoond.
Gerelateerde artikelen:
- Hoe waarden te kopiëren en te plakken en duplicaten over te slaan in Excel?
- Hoe celdata met rijhoogte en kolombreedte in Excel te kopiëren?
- Hoe cel kopiëren als tekstwaarde en niet als formule in Excel?
- Hoe kopieer ik gegevens naar de volgende lege rij van een ander werkblad in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!