[VBA기초] 열 자동 맞춤

열 자동 맞춤

Sub 자동맞춤()

Columns("A:AH").AutoFit  '// A열에서 AH열까지 열 자동 맞춤

Columns("A:B").HorizontalAlignment = xlCenter  '// A열,B열 가운데 정렬
Rows(1).HorizontalAlignment = xlCenter  '// 1행만 가운데 정렬

End Sub

위 코드만으로 열 맞춤을 자동으로 간단하게 해결됩니다.

방법은 엑셀이 띄워진 상태에서 Alt + F11 키를 눌러서 새로운 창이 뜨면 [삽입] - [모듈] 을 누릅니다.

나오는 창에다가 위의 코드를 입력합니다.

그런 다음에 F5키를 누릅니다.

그러면 엑셀의 현재 활성화된 Sheet에 있는 열 자동 맞춤이 됩니다.