Jak kopírovat pouze ohraničení vybraného rozsahu v aplikaci Excel?

Při používání aplikace Microsoft Excel je snadné zkopírovat pouze hodnoty buněk, formátování buněk, vzorce buněk atd. Z rozsahu pomocí funkce Vložit jinak. Ale zkusili jste někdy zkopírovat pouze styl ohraničení z rozsahu v aplikaci Excel? Tento článek vám ukáže způsob kopírování pouze okrajů vybraného rozsahu do nového rozsahu v aplikaci Excel.

Zkopírujte pouze ohraničení vybraného rozsahu pomocí kódu VBA

Zkopírujte pouze ohraničení vybraného rozsahu pomocí kódu VBA

Následující kód VBA vám pomůže pouze zkopírovat styl ohraničení vybraných buněk a poté použít tento styl ohraničení na nový rozsah v aplikaci Excel. Postupujte prosím následovně.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula poté zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Zkopírujte pouze ohraničení vybraného rozsahu v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu. V prvním vyskakování Kutools pro Excel V dialogovém okně vyberte rozsah s okraji, který chcete zkopírovat, a poté klikněte na ikonu OK .

4. Ve druhé Kutools pro Excel V dialogovém okně vyberte buňku, na kterou se má použít zkopírovaný okraj, a klikněte na ikonu OK knoflík. Viz screenshot:

Pak můžete vidět, že se pouze zkopíruje styl ohraničení vybraného rozsahu a použije se na nový rozsah, jak je uvedeno níže.

Související články:

• Jak kopírovat a vkládat hodnoty přeskakující duplikáty v aplikaci Excel?
• Jak kopírovat data buněk s výškou řádku a šířkou sloupce v aplikaci Excel?
• Jak kopírovat buňku jako textovou hodnotu, nikoli jako vzorec v aplikaci Excel?
• Jak kopírovat data do dalšího prázdného řádku jiného listu v aplikaci Excel?