개발
Excel 에서 행높이 일정 비율로 키우기
보안인
2022. 2. 22. 22:32
반응형
엑셀 사용 시, 흔히 겪는 문제 중 하나가 전체를 선택하여,
행이나 열 사이를 더블클릭하여 공백을 없애는 방법을 사용한다.
하지만, 이와 같은 방법을 사용할 경우, 셀 한 칸에 여러줄의 텍스트를 입력하게 되면,
인쇄 시에 글씨가 잘려서 잘 가독성이 떨어지게 된다.
간단하게 다음의 매크로를 활용하여 해결 할 수 있다.
모든 행을 한줄씩 읽으면서 1.3배씩 늘려주는 코드이다.
Sub Test()
Dim rng As Range
Dim C As Range
Set rng = Range("A1", ActiveSheet.UsedRange)
rng.Rows.AutoFit
Application.ScreenUpdating = False
For Each C In rng.Resize(rng.Rows.Count, 1)
C.RowHeight = C.RowHeight * 1.3
Next C
Application.ScreenUpdating = True
End Sub
코드 입력 절차는 다음과 같다.
보기 > 매크로 > 매크로 보기(V)

매크로 이름 설정 -> 만들기

코드 삽입 후 매크로 창 종료 (그냥 오른쪽 위 X 누르고 나가시면 됩니다.)

[실행방법]
행 높이를 일정하게 키우고 싶은 엑셀 탭 선택 후 다시 보기 > 매크로 > 매크로 보기 선택 > 실행
끝!!

반응형