엑셀 행추가 매크로 사용하여 자동화하기

엑셀 행추가 매크로 사용하여 자동화하기

 

회사에서 업무하다 보면 엑셀을 굉장히 많이 만지게 된다.

엑셀에서 이미 만들어진 매크로 기능을 써본 적이 있지만 실제로 만들어본 건 이번이 처음이다.

​

최근에 어디서 주워들은 이야기인데 "동일한 작업이 2번이상 반복되면 자동화하면 된다." 라는 말을 들었다. 듣고나서 '미쳤다'라는 생각밖에 안들었다.

​

엑셀 작업하다가 200개 행의 데이터가 있는데 각 1개의 행마다 3개의 행을 추가해야하는 일이 생겼다.

3개의 행 추가하는 작업을 200번 해야한다는 이야기다.

바로 매크로를 써야겠다 라는 생각이 들었고, 할 줄 몰라 구글 검색했다.

​

사용법이 간단했고 정리를 해보겠다.

 

​

1.엑셀에서 매크로를 만든다.

​

​

2. 매크로를 편집한다.

​

• 편집을 누르면 코드 작성하는 화면이 나온다.

​

• 아래 사진처럼 작성 후[ X]버튼으로 닫고 엑셀로 돌아간다.

 

 

 

 

• 필요하면 아래 복사 붙여넣기 하시면 된다.

Sub 행추가매크로()

'

' 행추가매크로 매크로

' 행추가 할 갯수를 입력하면 갯수만큼 행이 추가됩니다.

'

​

'

Dim i As Long, n As Long

n = Val(InputBox("삽입할 행 수를 입력하세요!", "삽입할 행 수"))

If n <= 0 Then Exit Sub

For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1

Cells(i, 1).Resize(n).EntireRow.Insert

Next i

End Sub

 

 

​

3. 매크로를 실행한다.

• 실행이후 화면에서 삽입할 행 수를 입력하고 [확인] 버튼 누르면 된다.

• 기존에 있던 각 행을 기준으로 3개의 행이 추가되었다.

​

• 기존에 있던 각 행을 기준으로 3개의 행이 추가되었다.
• 엑셀의 매크로는 VBA라는 언어라고 한다.
• VBA는 Visual Basic for Application의 약자로 Microsoft 사에서 제공하는 프로그래밍 언어라고 한다.
• 처음 접하는 언어지만 행추가 로직은 간단하기도 했고 개발자로서 그냥 느낌으로 이해가 간다.
• 200번 반복할 일을 저 매크로를 만드는 순간 1번만 하면 된다. 끝내준다.

​