엑셀 행마다 일정 간격 띄어주기 (또는 위, 아래 여백 지정처럼 만들기)

엑셀 행 높이 자동맞춤으로 해도 아래가 짤려서 고객사한테 개욕처먹었던 일이 있다.

몇백개 행을 일일히 스페이싱을 줬다간 시간을 얼마나 잡아먹을지도 모르는 일이므로 매크로로 해결하는 것이 가장 좋을 것 같다.

출처가 있긴 한데 어딘지 기억이 안남...

. 엑셀을 다른이름으로 저장하여 매크로 사용 통합문서 (.xlsm) 로 저장

. alt + f11 로 VBA 진입

. [microsoft excel 개체]폴더에서 오른쪽 클릭으로 새 모듈 만들기

. 다음 코드를 입력 (자동 간격의 1.2배를 띄우는 코드니깐 1.2 대신 원하는 숫자 집어넣으면 됨)

Sub autorowlengthchange()

For Each K In Range(Range("A1"), Range("a65536").End(xlUp))

With K

  .EntireRow.AutoFit

  .RowHeight = K.RowHeight * 1.2

End With

Next K

End Sub

. 저장 후 VBA 닫기

. 엑셀 창에서 alt + f8 로 매크로 창 호출

. 만들었던 매크로가 나옴. 그걸 실행