Πώς να αντιγράψετε μόνο περιγράμματα επιλεγμένου εύρους στο Excel;

Κατά τη χρήση του Microsoft Excel, είναι εύκολο να αντιγράψετε μόνο τιμές κυψελών, μορφοποίηση κυττάρων, τύπους κυττάρων και ούτω καθεξής από ένα εύρος με τη λειτουργία Επικόλληση ειδικού. Αλλά έχετε προσπαθήσει ποτέ να αντιγράψετε μόνο στυλ περιγράμματος από μια σειρά στο Excel; Αυτό το άρθρο θα σας δείξει τη μέθοδο αντιγραφής μόνο περιγραμμάτων επιλεγμένου εύρους σε ένα νέο εύρος στο Excel.

Αντιγράψτε μόνο περιγράμματα επιλεγμένου εύρους με κωδικό VBA

Αντιγράψτε μόνο περιγράμματα επιλεγμένου εύρους με κωδικό VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να αντιγράψετε μόνο το στυλ περιγράμματος των επιλεγμένων κελιών και, στη συνέχεια, να εφαρμόσετε αυτό το στυλ περιγράμματος σε ένα νέο εύρος στο Excel. Κάντε τα εξής:

1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Αντιγράψτε μόνο περιγράμματα επιλεγμένου εύρους στο 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. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στην πρώτη εμφάνιση Kutools για Excel πλαίσιο διαλόγου, επιλέξτε το εύρος με περιθώρια που πρέπει να αντιγράψετε και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

4. Στο δεύτερο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε ένα κελί για να εφαρμόσετε το αντιγραμμένο περίγραμμα και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, μπορείτε να δείτε μόνο το στυλ περιγράμματος του επιλεγμένου εύρους αντιγράφεται και εφαρμόζεται σε ένα νέο εύρος όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Σχετικά Άρθρα:

• Πώς να αντιγράψετε και να επικολλήσετε τιμές που παραλείπουν διπλότυπα στο Excel;
• Πώς να αντιγράψετε δεδομένα κελιών με ύψος σειράς και πλάτος στήλης στο Excel;
• Πώς να αντιγράψετε κελί ως τιμή κειμένου και όχι τύπο στο Excel;
• Πώς να αντιγράψετε δεδομένα στην επόμενη κενή σειρά ενός άλλου φύλλου εργασίας στο Excel;