Hvordan kopieres kun grænser for det valgte interval i Excel?

Mens du bruger Microsoft Excel, er det let at kun kopiere celleværdier, celleformatering, celleformler og så videre fra et interval med funktionen Indsæt speciel. Men har du nogensinde forsøgt at kopiere kun kantstil fra et interval i Excel? Denne artikel viser dig metoden til kun at kopiere grænser for det valgte område til et nyt interval i Excel.

Kopier kun kanter af det valgte område med VBA-kode

Kopier kun kanter af det valgte område med VBA-kode

Følgende VBA-kode kan hjælpe dig med kun at kopiere kantstilen for valgte celler og derefter anvende denne kantstil på et nyt område i Excel. Gør venligst som følger.

1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier og indsæt derefter nedenstående VBA-kode i vinduet Kode.

VBA-kode: Kopier kun grænser for det valgte interval i 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. Tryk på F5 nøgle for at køre koden. I den første dukker op Kutools til Excel i dialogboksen skal du vælge det interval med kanter, du skal kopiere, og klik derefter på OK .

4. I det andet Kutools til Excel Vælg en celle for at anvende den kopierede ramme, og klik derefter på OK knap. Se skærmbillede:

Så kan du se, at kun kantstilen for det valgte område kopieres og anvendes på et nyt område, som vist på skærmbilledet nedenfor.

Relaterede artikler:

• Hvordan kopieres og indsættes værdier, der springer duplikater over i Excel?
• Hvordan kopieres celledata med rækkehøjde og kolonnebredde i Excel?
• Hvordan kopieres celle som tekstværdi ikke formel i Excel?
• Hvordan kopieres data til næste tomme række i et andet regneark i Excel?