Note: The other languages of the website are Google-translated. Back to English

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

Microsoft Excel을 사용하는 동안 선택하여 붙여 넣기 기능을 사용하면 범위에서 셀 값, 셀 서식, 셀 수식 등 만 쉽게 복사 할 수 있습니다. 그러나 Excel의 범위에서 테두리 스타일 만 복사 해 본 적이 있습니까? 이 기사에서는 선택한 범위의 테두리 만 Excel의 새 범위로 복사하는 방법을 보여줍니다.

VBA 코드로 선택한 범위의 테두리 만 복사


VBA 코드로 선택한 범위의 테두리 만 복사

다음 VBA 코드는 선택한 셀의 테두리 스타일 만 복사 한 다음이 테두리 스타일을 Excel의 새 범위에 적용하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈을 클릭 한 다음 아래 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 코드를 실행하는 키입니다. 첫 번째 팝업에서 Excel 용 Kutools 대화 상자에서 복사 할 테두리가있는 범위를 선택한 다음 OK 버튼을 클릭합니다.

4. 두 번째 Excel 용 Kutools 대화 상자에서 복사 한 테두리를 적용 할 셀을 선택한 다음 OK 단추. 스크린 샷보기 :

그러면 아래 스크린 샷과 같이 선택한 범위의 테두리 스타일 만 복사되어 새 범위에 적용되는 것을 볼 수 있습니다.


관련 기사:


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (6)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드는 또한 내 숫자 형식을 복사하고 대상 셀의 형식을 덮어썼습니다. 내가 뭔가 잘못한 게 아닐까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 데이비드,
제 경우에는 코드가 테두리를 대상 셀에만 복사합니다. 엑셀 버전을 알려주실 수 있나요? 당신의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 크리스탈님
XNUMX년이 넘었다는 것을 알고 있지만 제 이메일 시스템의 호스트 변경으로 인해 귀하의 질문이 받은 편지함의 맨 위에 올라갔습니다.
내 Excel 버전은 계정> 정보에서 보고한 대로 2016 16.0.4993.1001입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 데이비드,
회신을 받게 되어 기쁩니다. Excel 2016에서 코드를 테스트했지만 여전히 테두리만 복사합니다. 데이터 사본을 zxm@addin99.com으로 보내주시겠습니까? 불편을 드려 죄송합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
도브 리즈,

Děkuji za pomoc s kopírováním pouze ohraničení.
슐로
고마워.
Jirka
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hola me gusto mucho al macro para copiar los Bordes, pero al copiar los bordes me borra el formato que tienen las celtas es decir borra colores y otros formatos que ya tiene la celda. me puedes ayudar con una macro que me permitta copiar los bordes de otra celta a otra sin borrar el formato que tiene la celda de destino?
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호