Excel에서 선택한 범위의 테두리만 복사하는 방법은 무엇입니까?

Microsoft Excel을 사용하는 동안에는 '특수 붙여넣기' 기능을 통해 특정 범위에서 셀 값, 셀 서식, 셸 수식 등을 쉽게 복사할 수 있습니다. 하지만 Excel에서 특정 범위의 테두리 스타일만 복사해 본 적이 있나요? 이 문서에서는 Excel에서 선택한 범위의 테두리만 새 범위로 복사하는 방법을 알려드리겠습니다.

VBA 코드를 사용하여 선택한 범위의 테두리만 복사하기

VBA 코드를 사용하여 선택한 범위의 테두리만 복사하기

다음 VBA 코드는 선택한 셀의 테두리 스타일만 복사하고, 그 테두리 스타일을 Excel의 새 범위에 적용하는 데 도움을 줍니다. 아래 단계를 따라 주세요.

1. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

2. "Microsoft Visual Basic for Applications" 창에서 "삽입" > "모듈"을 클릭한 다음, 아래 VBA 코드를 코드 창에 복사하여 붙여넣습니다.

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 for Excel" 대화 상자에서 복사하려는 테두리가 있는 범위를 선택한 후 "확인" 버튼을 클릭합니다.

4. 두 번째 "Kutools for Excel" 대화 상자에서 복사된 테두리를 적용할 셀을 선택한 다음 "확인" 버튼을 클릭합니다. 스크린샷 참고:

그러면 선택한 범위의 테두리 스타일만 복사되어 새 범위에 적용된 것을 확인할 수 있습니다. 아래 스크린샷을 참조하세요.

관련 문서:

• Excel에서 중복을 건너뛰고 값만 복사하여 붙여넣는 방법은 무엇인가요?
• Excel에서 행 높이와 열 너비를 포함한 셀 데이터를 복사하는 방법은 무엇인가요?
• Excel에서 수식이 아닌 텍스트 값으로 셀을 복사하는 방법은 무엇인가요?
• Excel에서 다른 워크시트의 다음 빈 행으로 데이터를 복사하는 방법은 무엇인가요?