엑셀 매크로 VBA] 열 너비와 행 높이 다른 시트에 적용하기

2016.12.05 23:19



이전 글에서 엑셀의 열 데이터를 기준으로 각각의 시트로 분리해서 복사하는 방법의 매크로 VBA를 정리해보았다. 






그런데 이 매크로의 단점(?)이 데이터를 복사해 넣으면서  열 너비를 "AutoFit"으로 맞추기 때문에 원본에 해당하는 시트에서 맞춰 놓은 열 너비와 조금 달라진다는 문제가 있다. 






이제 막 매크로를 배우기 시작한 수준이기 때문에 코드를 직접 수정하는 방법은 너무 어렵고, 

구글링해봐도 열 너비, 행 높이 값까지 복사해서 열 데이터를 기준으로 시트를 분리하는 매크로는 찾지 못하고 "니꾸"님의 블로그(http://blog.naver.com/PostView.nhn?blogId=rosa0189&logNo=60156660570)에서 행높이와 열너비를 일치시키는 매크로를 찾았다. 



니꾸님의 매크로는 원본시트의 열 너비와 행 높이 값을 타겟 시트에 적용하는 매크로인데 타겟 시트를 한 개만 지정하는 방법을 사용한다. 



그래서 니꾸님의 매크로를 약간 수정했다.


전체 시트의 수를 파악해서 For문으로 2부터 시트 숫자만큼 반복하는 방법으로 수정했다. 

(첫번째 시트는 원본시트이기 때문에 2번 시트부터)






원본에 해당하는 첫번째 시트를 활성화한 상태에서 매크로를 실행시키면 된다. 






< 소스코드 다운로드 >

match_RowHeight_ColumnWidth.txt





또루아빠 Excel/엑셀 VBA , , , , , ,

  1. Blog Icon

    비밀댓글입니다

  2. 댓글 감사드려요. ^^