엑셀 VBA(매크로) - 자동으로 행, 열 맞추기

Visioual Basic Applicaiton을 이용하여 자동으로 열을 맞추는 방법입니다.

 

개발도구 메뉴에서 Visual Basic 메뉴로 들어갑니다.

 

VBA 창에서 '삽입' 메뉴에서 '모듈(M)'을 눌러서 모듈을 추가합니다.

 

아래와 같이 임으로 엑셀창을 열어서 행 너비를 넘어가도록 글자를 무작위로 입력해 보겠습니다.

자동 열맞춤 전

 

추가된 모듈에서 아래와 같이 코드를 입력합니다.

---

Sub sb열맞춤()

 

   Columns("C:I").AtuoFit

 

End Sub

---

 

실행을 해 보면 아래와 같이 자동으로 열이 맞춰집니다.

자동으로 행 맞추는 코드는 아래와 같습니다.

---

Sub sb행맞춤()

 

   Columns("1").AtuoFitRows("1:17").EntireRow.AutoFit

 

End Sub

---

자동 행 맞추기 전

자동 행맞추기 후