Cum să copiați numai chenarele intervalului selectat în Excel?

În timp ce utilizați Microsoft Excel, este ușor să copiați numai valorile celulei, formatarea celulei, formulele de celule și așa mai departe dintr-un interval cu funcția Lipire specială. Dar ați încercat vreodată să copiați doar stilul chenarului dintr-un interval din Excel? Acest articol vă va arăta metoda de copiere numai a chenarelor intervalului selectat într-un interval nou în Excel.

Copiați doar marginile zonei selectate cu codul VBA

Copiați doar marginile zonei selectate cu codul VBA

Următorul cod VBA vă poate ajuta să copiați doar stilul de chenar al celulelor selectate și apoi să aplicați acest stil de chenar la un interval nou în Excel. Vă rugăm să faceți după cum urmează.

1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați și lipiți codul VBA de mai jos în fereastra Cod.

Cod VBA: copiați numai chenarele intervalului selectat în 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. apasă pe F5 tasta pentru a rula codul. În prima popping up Kutools pentru Excel caseta de dialog, selectați intervalul cu margini pe care trebuie să le copiați, apoi faceți clic pe OK butonul.

4. În al doilea Kutools pentru Excel caseta de dialog, selectați o celulă pentru a aplica chenarul copiat, apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi puteți vedea că doar stilul de chenar al intervalului selectat este copiat și aplicat unui interval nou, așa cum se arată în captura de ecran de mai jos.

Articole pe aceeași temă:

• Cum să copiați și să lipiți valori sărind peste duplicate în Excel?
• Cum să copiați datele celulelor cu înălțimea rândului și lățimea coloanei în Excel?
• Cum să copiați celula ca valoare text, nu formulă în Excel?
• Cum să copiați datele pe următorul rând gol al unei alte foi de lucru în Excel?