[매크로] 행높이 자동 맞추기

최근 블로그 활동을 못하다보니 블로그가 한참 퇴보한 느낌입니다.

종종 글이라도 적어야하는데 마음같지가 않네요. 뭔가를 몰두하면 다른 뭔가를 못하게 되는건 당연한것 같습니다.

엑셀을 사용하면서 많이 불편한 부분중에 하나가 행높이 맞추기입니다.

행높이의 하단은 더블클릭하면 행의 글자크기에 맞춰서 자동 맞춤이 됩니다.

매번 다시 작성하게 되는 가끔 사용하는 매크로를 조금씩이라도 정리해놓을까 합니다.

Sub 행높이자동맞춤()

    ActiveCell.EntireRow.AutoFit

    RH = ActiveCell.RowHeight

    ActiveCell.RowHeight = RH + (4 * (RH \ 12))

End Sub

※ 출력시 자동맞춤 상태임에도 글씨가 모두 출력이 되지 않는 경우 높이를 조정합니다.