Excel'de seçili aralığın yalnızca kenarlıklarını nasıl kopyalayabilirsiniz?

Microsoft Excel kullanırken, bir aralıktan yalnızca hücre değerlerini, hücre biçimlendirmesini, hücre formüllerini vb. Özel Yapıştır işleviyle kopyalamak kolaydır. Ancak, Excel'de bir aralıktan yalnızca kenarlık stilini kopyalamayı denediniz mi? Bu makale, Excel'de seçili aralığın yalnızca kenarlıklarını yeni bir aralığa kopyalama yöntemini gösterecektir.

Yalnızca seçili aralığın kenarlıklarını kopyalamak için VBA kodu kullanın

Yalnızca seçili aralığın kenarlıklarını kopyalamak için VBA kodu kullanın

Aşağıdaki VBA kodu, seçili hücrelerin yalnızca kenarlık stilini kopyalamanıza ve ardından bu kenarlık stilini Excel'deki yeni bir aralığa uygulamanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.

2. "Microsoft Visual Basic for Applications" penceresinde, "Ekle" > "Modül"'e tıklayın ve ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'de seçili aralığın yalnızca kenarlıklarını kopyalayın

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. Kodu çalıştırmak için "F5" tuşuna basın. İlk açılan "Kutools for Excel" iletişim kutusunda, kopyalamak istediğiniz kenarlık içeren aralığı seçin ve ardından "Tamam" düğmesine tıklayın.

4. İkinci "Kutools for Excel" iletişim kutusunda, kopyalanan kenarlığı uygulamak için bir hücre seçin ve ardından "Tamam" düğmesine tıklayın. Ekran görüntüsüne bakın:

Daha sonra, seçili aralığın yalnızca kenarlık stili kopyalanmış ve aşağıdaki ekran görüntüsünde gösterildiği gibi yeni bir aralığa uygulanmış olabilirsiniz.

İlgili makaleler:

• Excel'de yinelenenleri atlayarak değerleri nasıl kopyalayıp yapıştırabilirsiniz?
• Excel'de satır yüksekliği ve sütun genişliği ile hücre verilerini nasıl kopyalayabilirsiniz?
• Excel'de hücreyi formül değil metin değeri olarak nasıl kopyalayabilirsiniz?
• Excel'de başka bir çalışma sayfasının sonraki boş satırına veri nasıl kopyalanır?