Wie kopiere ich nur Ränder des ausgewählten Bereichs in Excel?
Bei Verwendung von Microsoft Excel ist es mit der Funktion "Inhalte einfügen" einfach, nur Zellenwerte, Zellenformatierungen, Zellformeln usw. aus einem Bereich zu kopieren. Aber haben Sie jemals versucht, nur den Rahmenstil aus einem Bereich in Excel zu kopieren? Dieser Artikel zeigt Ihnen, wie Sie nur Ränder des ausgewählten Bereichs in einen neuen Bereich in Excel kopieren können.
Kopieren Sie nur Ränder des ausgewählten Bereichs mit VBA-Code
Kopieren Sie nur Ränder des ausgewählten Bereichs mit VBA-Code
Mit dem folgenden VBA-Code können Sie nur den Rahmenstil ausgewählter Zellen kopieren und diesen Rahmenstil dann auf einen neuen Bereich in Excel anwenden. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > ModulKopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Kopieren Sie nur Ränder des ausgewählten Bereichs 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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Beim ersten Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Bereich mit den Rändern aus, die Sie kopieren möchten, und klicken Sie dann auf OK .
4. In dieser Sekunde Kutools for Excel Wählen Sie im Dialogfeld eine Zelle aus, um den kopierten Rand anzuwenden, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Dann können Sie sehen, dass nur der Rahmenstil des ausgewählten Bereichs kopiert und auf einen neuen Bereich angewendet wird (siehe Abbildung unten).
In Verbindung stehende Artikel:
- Wie kopiere und füge ich Werte ein, wobei Duplikate in Excel übersprungen werden?
- Wie kopiere ich Zellendaten mit Zeilenhöhe und Spaltenbreite in Excel?
- Wie kopiere ich eine Zelle als Textwert und nicht als Formel in Excel?
- Wie kopiere ich Daten in die nächste leere Zeile eines anderen Arbeitsblatts in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
